On Thu, 14 Jun 2001, Luinrandir Hernson wrote:
> srand;
> $A = int (rand (4))
^^^
Need a semi-colon
> if ($A eq '0') {print "<BODY BACKGROUND=\"images/celtknt0.jpg\">\n"};
> if ($A eq '1') {print "<BODY BACKGROUND=\"images/celtknt1.jpg\">\n"};
> if ($A eq '2') {print "<BODY BACKGROUND=\"images/celtknt2.jpg\">\n"};
> if ($A eq '3') {print "<BODY BACKGROUND=\"images/celtknt3.jpg\">\n"};
The semi-colons here should be inside the block, not outside. Actually,
no semi-colon is need at if you only have one line in it. You should also
test $A against numerical values: $A == 0, $A == 1, etc.
-- Brett
http://www.chapelperilous.net/btfwk/
------------------------------------------------------------------------
Elegance and truth are inversely related.
-- Becker's Razor
