7月 082012
.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 < 32; ++$row)
{
for (my $col = 0; $col < 8; ++$col)
{
print get_color($color);
++$color;
}
print "\n";
}
termcolorというファイルに保存して実行権をつける。
termcolorの実行結果がこちら。

1 コメント