カラーチャート
#! /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;
〔 実行する 〕