Category: | HTML Utility |
Author/Contact Info | Elihu |
Description: | This is a cgi script that generates an 8 by 8 grid of random colors with their appropriate hex values. Useful for picking colors for web pages. |
#!/usr/bin/perl -w
#
# HTML Color Generator
# by Rob Hudson (elihu@atdot.org)
# June 1, 1999
use strict;
my @colors;
for (my $i = 0; $i < 64; $i++) {
my ($rand,$x);
my @hex;
for ($x = 0; $x < 3; $x++) {
$rand = rand(255);
$hex[$x] = sprintf ("%x", $rand);
if ($rand < 9) {
$hex[$x] = "0" . $hex[$x];
}
if ($rand > 9 && $rand < 16) {
$hex[$x] = "0" . $hex[$x];
}
}
$colors[$i] = "\#" . $hex[0] . $hex[1] . $hex[2];
}
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Random Color Generator</TITLE></HEAD>";
print "<BODY BGCOLOR=\"#FFFFFF\">\n";
print "<H2><CENTER>Random Color Generator</CENTER></H2>";
print "<TABLE CELLSPACING=5 CELLPADDING=5 ALIGN=CENTER>\n";
my $count = 0;
for (my $i = 0; $i < 8; $i++) {
print "<TR>\n";
for (my $x = 0; $x < 8; $x++) {
print "<TD BGCOLOR=\"#E0E0E0\"> $colors[$count++] </TD>";
}
print "</TR><TR>\n";
$count -= 8;
for (my $y = 0; $y < 8; $y++) {
print "<TD BGCOLOR=\"$colors[$count++]\"> <BR> </TD>\n"
+;
}
print "</TR>\n";
}
print "</TABLE></BODY></HTML>";
|
Back to
Code Catacombs