#!/usr/bin/env perl
#$Id: rgb.pl,v 1.3 2002/02/27 07:19:13 sakane Exp $
# Be eaten /usr/X11R6/lib/X11/rgb.txt.

$RGB='/usr/X11R6/lib/X11/rgb.txt';
$cstr = '      ';

print "<hr>\n";

open(FP, $RGB);
while(<FP>) {
	if (/^\s*([\d]+)\s+([\d]+)\s+([\d]+)\s+([a-zA-Z0-9 ]+)$/) {
		$n = sprintf "%02x%02x%02x", $1, $2, $3;
		$cv{$n} = $4;
		$cn{$4} = $n;
	}
}
close FP;

# ôÀôÀôÀ
print "<table>\n";
$i = 0;
foreach (sort keys %cv) {
	printf "%s", ($i % 3 == 0) ? "<tr>" : "";
	printf "<td bgcolor=\"#%s\">%s</td>", $_, $cstr;
	printf "<td>#%s</td>", $_;
	printf "<td>%s</td>%s", $cv{$_};
	printf "%s", ($i % 3 == 2) ? "</tr>" : "";
	$i++;
}
print "</tr>\n" if ($i%3!=2);
print "</table>\n";

print "<hr>\n";

print "<table>\n";
$i = 0;
foreach (sort keys %cn) {
	printf "%s", ($i % 3 == 0) ? "<tr>" : "";
	printf "<td bgcolor=\"#%s\">%s</td>", $cn{$_}, $cstr;
	printf "<td>#%s</td>", $cn{$_};
	printf "<td>%s</td>%s", $_;
	printf "%s", ($i % 3 == 2) ? "</tr>" : "";
	$i++;
}
print "</table>\n";