5 use open IO => ':utf8';
9 $header{content_type} = 'text/html; charset=utf-8';
11 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
12 "http://www.w3.org/TR/html4/loose.dtd">
16 <title>terminal colour cheat sheet</title>
17 <meta http-equiv="content-type" content="utf-8">
18 <link rel="stylesheet" type="text/css" media="all" href="/base.css">
22 <h1>Terminal colours</h1>
25 <tr><th>#<td>xterm</tr>
29 qw/black red green orange blue magenta cyan gray
30 gray red green yellow blue magenta cyan white/,
31 qw/reset bold dim italic underline blink fastblink
36 qw/000 A00 0A0 A50 00A A0A 0AA AAA
37 555 F55 5F5 FF5 55F F5F 5FF FFF/,
41 qw/000 C00 0C0 CC0 4682B4 C0C 0CC E5E5E5
42 4C4C4C F00 0F0 FF0 1E90FF F0F 0FF FFF/,
46 qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
47 555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/,
51 for my $num (0 .. 15) {
52 printf('<tr><th>%d<td>%s%s</tr>'."\n",
55 join('', map {sprintf '<td style="%s"> ▪ ',
56 'background:#'.$col{$_}[0].'; color:#'.$col{$_}[$num + 2],
57 } qw/linux xterm tango/ ),