:
use utf8;
use strict;
use warnings;
use open IO => ':utf8';
our $VERSION = 'v1.0';
$header{content_type} = 'text/html; charset=utf-8';
:>
terminal colour cheat sheet
Terminal colours
# | xterm |
<:
my %col = (
-name => [
qw/black red green orange blue magenta cyan gray
gray red green yellow blue magenta cyan white/,
qw/reset bold dim italic underline blink fastblink
reverse hidden/,
],
linux => [
qw/000 CCC/,
qw/000 A00 0A0 A50 00A A0A 0AA AAA
555 F55 5F5 FF5 55F F5F 5FF FFF/,
],
xterm => [
qw/000 CCC/,
qw/000 C00 0C0 CC0 4682B4 C0C 0CC E5E5E5
4C4C4C F00 0F0 FF0 1E90FF F0F 0FF FFF/,
],
tango => [
qw/000 CCC/,
qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/,
],
);
for my $num (0 .. 15) {
printf('%d | %s%s |
'."\n",
$num,
$col{-name}[$num],
join('', map {sprintf ' ▪ ',
'background:#'.$col{$_}[0].'; color:#'.$col{$_}[$num + 2],
} qw/linux xterm tango/ ),
);
}
:> |