#!/usr/bin/perl use CGI; $query = new CGI; $order=$query->param('order'); print $query->header(); if ( $order !~ /^(rgb|rbg|grb|brg|gbr|bgr)$/) { print "Invalid input to script\n"; exit; } @codes = ('00','33','66','99','CC','FF'); print< Colors EOT print "\n"; @order = split //, $order; %RGB = ( 'r'=>'Red', 'g'=>'Green', 'b'=>'Blue' ); %lookup = ( $order[0] => 'table', $order[1] => 'row', $order[2] => 'column' ); for $table (@codes) { # banner for first set print "
$RGB{$order[0]}=$table\n
"; # column headings for $c (@codes) { print "$RGB{$order[2]}=$c"; } for $row (@codes) { print "
$RGB{$order[1]}=$row\n"; for $column (@codes) { print " \n"; } } } print "
\n"