.vimrcなどで自分専用のVim環境を作っていると、文字色や背景色の色指定をctermbgなどの数値で設定する際に、色と数値の対応表がほしくなることがある。そんなときに使えるPerlスクリプトを書いてみた。 #!/usr/bin/env perl use strict; use warnings; my $fg = "\x1b[38;5;"; my $bg = "\x1b[48;5;"; my $rs = "\x1b[0m"; my $color = 0; sub get_color { my ($color) = @_; my $number = sprintf '%3d', $color; return qq/${bg}${color}m ${number}${rs}${fg}${color}m ${number}${rs} /; } for (my $row = 0; $row <