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 コメント