Hello Nige,
Thanks for that, it looks useful.
A few minor points:
s/^(0x|#)(.{6})/$2/ for @hexSs;
my $cell = 0; for my $hex (@hexSs) { print "<TD BGCOLOR='#$hex'>", "<FONT COLOR='white'>$hex</FONT><BR /><BR />", "<FONT COLOR='black'>$hex</FONT></TD>"; if (++$cell >= 6) { $cell = 0; print "</TR>\n<TR>"; } }
Hope that helps,
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re: Colour/color sampler
by Athanasius
in thread Colour/color sampler
by Nige
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |