カラーチャート
#! /usr/local/bin/perl
$color = "FEDCBA9876543210";
print qq(Content-type: text/html; charset=Shift_JIS\n\n);
print <<END;
<html>
<head>
<title>カラーチャート</title>
</head>
<body>
<h1 style="margin:2px;font-size:18px">カラーチャート</h1>
<table width="95%" align="center" style="font-size:10px;border:2px solid #999">
END
for($r = 0 ; $r < length($color) ; $r += 3) {
for($g = 0 ; $g < length($color) ; $g += 3) {
print qq(<tr>\n);
for($b = 0 ; $b < length($color) ; $b += 3) {
my $bgcolor = substr($color, $r, 1);
$bgcolor .= substr($color, $r, 1);
$bgcolor .= substr($color, $g, 1);
$bgcolor .= substr($color, $g, 1);
$bgcolor .= substr($color, $b, 1);
$bgcolor .= substr($color, $b, 1);
print qq(<td bgcolor="#$bgcolor" width="10%"></td><td>$bgcolor</td>\n);
}
print qq(</tr>\n);
}
}
print <<END;
</table>
</body>
</html>
END
exit;
〔 実行する 〕