termcol.plp

   1 <:
   2 use utf8;
   3 use strict;
   4 use warnings;
   5 use open IO => ':utf8';
   6
   7 our $VERSION = 'v1.0';
   8
   9 $header{content_type} = 'text/html; charset=utf-8';
  10
  11 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
  12  "http://www.w3.org/TR/html4/loose.dtd">
  13 <html>
  14
  15 <head>
  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">
  19 </head>
  20
  21 <body>
  22 <h1>Terminal colours</h1>
  23
  24 <table>
  25 <tr><th>#<td>xterm</tr>
  26 <:
  27 my %col = (
  28         -name => [
  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
  32                    reverse hidden/,
  33         ],
  34         linux => [
  35                 qw/000 CCC/,
  36                 qw/000 A00 0A0 A50 00A A0A 0AA AAA
  37                    555 F55 5F5 FF5 55F F5F 5FF FFF/,
  38         ],
  39         xterm => [
  40                 qw/000 CCC/,
  41                 qw/000 C00 0C0 CC0 4682B4 C0C 0CC E5E5E5
  42                    4C4C4C F00 0F0 FF0 1E90FF F0F 0FF FFF/,
  43         ],
  44         tango => [
  45                 qw/000 CCC/,
  46                 qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
  47                    555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/,
  48         ],
  49 );
  50
  51 for my $num (0 .. 15) {
  52         printf('<tr><th>%d<td>%s%s</tr>'."\n",
  53                 $num,
  54                 $col{-name}[$num],
  55                 join('', map {sprintf '<td style="%s">&nbsp;▪&nbsp;',
  56                         'background:#'.$col{$_}[0].'; color:#'.$col{$_}[$num + 2],
  57                 } qw/linux xterm tango/ ),
  58         );
  59 }
  60 :></table>
  61