Colours in xterm

[Michael James]

Or if you want the same thing in perl:

#!/usr/bin/perl
#
#   This file echoes a bunch of color codes to the
#   terminal to demonstrate what's available.  Each
#   line is the color code of one forground color,
#   out of 17 (default + 16 escapes), followed by a
#   test use of that color on all nine background
#   colors (default + 8 escapes).
#

use strict;

my $text = 'gYw';
my($fg, $bg);

my @FGS = qw( m 1m 30m 1;30m 31m 1;31m 32m 1;32m
        33m 1;33m 34m 1;34m 35m 1;35m 36m 1;36m 37m 1;37m);

my @BGS = qw( 40m 41m 42m 43m 44m 45m 46m 47m);

print join("\t  ", "\t", @BGS);
foreach $fg (@FGS)
{
        print "\n $fg\t $text\t";
        foreach $bg (@BGS)
        {
                print "\033[$fg\033[$bg  $text  \033[0m\t";
        }
}
print "\n\n";



You  don't like perl, but that shell was pretty dense.


-- 
Michael James				michael.james at csiro.au
System Administrator			voice:	02 6246 5040
CSIRO Bioinformatics Facility	fax:		02 6246 5166