: use utf8; use strict; use warnings; use open IO => ':utf8'; use List::Util 'min'; our $VERSION = 'v1.0'; $header{content_type} = 'text/html; charset=utf-8'; :>
%s | %s | %s', "background:#$rgb48; color:#$inverse", $id, "background:#000; color:#$rgb48", $rgb24, "background:#FFF; color:#$rgb48", $rgb24, } my %col = ( -name => [ qw/black maroon green olive navy purple cyan silver gray red lime yellow blue fuchsia aqua white/, qw/reset bold dim italic underline blink fastblink reverse hidden/, ], html => [ qw/000000 CCCCCC/, qw/000000 800000 008000 808000 000080 800080 008080 C0C0C0 808080 FF0000 00FF00 FFFF00 0000FF FF00FF 00FFFF FFFFFF/, ], cga => [ qw/000000 CCCCCC/, qw/000000 AA0000 00AA00 AA5500 0000AA AA00AA 00AAAA AAAAAA 555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF/, ], xterm => [ qw/000000 CCCCCC/, qw/000000 CC0000 00CC00 CCCC00 4682B4 CC00CC 00CCCC E5E5E5 4C4C4C FF0000 00FF00 FFFF00 1E90FF FF00FF 00FFFF FFFFFF/, ], tango => [ qw/000000 CCCCCC/, qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF 555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/, ], ); my @termlist = qw(html cga xterm tango); print ' |
'.$_} @termlist), " | ||
---|---|---|