Re: Random Imaging

in reply to Random Imaging

That is some ugly code. It generates incorrect HTML (it has so many errors, that you should read "HTML for dummies" again), not that my fix will go through a validator...
The code is completly unmaintainable and gives the impression that you have absolutely no idea of what you are doing.

#!c:\perl\bin\perl.exe -w

use strict;

my @imgArray = (
                {
                 file => "./pics/blink.gif",
                 h => 320,
                 w => 240,
                 title => "Blink 128 (1)",
                },
                {
                 file => "./pics/sum41.gif",
                 h => 316,
                 w => 500,
                 title => "Sum 41",
                },
                #and so on
                ...
               );

#dont use srand, unless you want a PREDICTABLE series of numbers every
+ time!
my $num = rand(@imgArray);
my $img = $imgArray[$num];

print "Content-type: text/html\n\n";

print <<HTML;
<html>
<head>
  <title></title>
</head>
<body bgcolor=lightgrey>
Index: $num <br>Image: $$img{file}
<br>
<br>
<center>Random imaging with Perl.....</center>
<br>
<br>
<center>
<img src="$$img{file}" border=1 height="$$img{h}" width="$$img{w}">
<br>
<br>
<font>$$img{title}</font>
</center>
</body>
</html>
HTML
[download]

T I M T O W T D I

In Section Seekers of Perl Wisdom