note
Tux
<p>Those are the fun projects in our fav scripting language :)</p>
<p>Not to be pedantic, but I rewrote the script to be both more perlish and more xhtml compliant. A lot of your variables are unneeded. The first part is html and css only, the last (very simple) loop incorporates all your fun</p>
<readmore><code>
use strict;
use warnings;
print <<"EOH";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xml:lang="en" xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Random Color Generator</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style type="text/css">
body { background: white;
width: 100%; }
h2 { text-align: center; }
table { margin: auto; }
td { padding: 5px; }
.text { background: #e0e0e0; }
</style>
</head>
<body>
<h2>Random Color Generator</h2>
<table>
EOH
my $count = 0;
for (0 .. 7) {
my @color = map { join "" => "#", map { sprintf "%02x", rand 255 } 1 .. 3 } 1 .. 8;
print qq{ <tr>\n};
print qq{ <td class="text">$_</td>\n} for @color;
print qq{ </tr>\n};
print qq{ <tr>\n};
print qq{ <td style="background:$_"> <br /> </td>\n} for @color;
print qq{ </tr>\n};
}
print " </table>\n</body>\n</html>\n";
</code></readmore>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-200365">
<br />
Enjoy, Have FUN! H.Merijn
</div></div>
2775
2775