DZone Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

Snippets has posted 5883 posts at DZone. View Full User Profile

Colours

02.25.2009
| 1671 views |
  • submit to reddit
        Display all the pretty colours in an xterm (or PuTTY session) so you can choose the combination you need...

Really helpful when you're writing a program and want to display something, or are hacking on your .dircolors or similar...

#!/usr/bin/perl
#
# JohnGH 29/12/2007
#
use warnings;
use strict;

my @range = ( 0 .. 8, 30 .. 37, 41 .. 47 , 90 .. 107);

my $count = shift;

if ( $count == 1 ) {

    for my $a ( @range ) {

        print "\e[${a}m$a\e[0m\n";

    }

}
elsif ( $count == 2 ) {

    for my $a ( @range ) {

        for my $b ( @range ) {

            print "\e[$a;${b}m$a;$b\e[0m\n";

        }

    }

} else {

    for my $a ( @range ) {

        for my $b ( @range ) {

            for my $c ( @range ) {

                print "\e[$a;$b;${c}m$a;$b;$c\e[0m\n";

            }

        }

    }

}