Why all the repetition? How about:
srand;
$filenumber = int (rand (4));
$bodytag = '<BODY BACKGROUND="/images/celtknt";
print $bodytag . $filenumber . '.jpg' . "\n";
On Thu, 14 Jun 2001 17:09:43 -0400, [EMAIL PROTECTED] (Luinrandir
Hernson) wrote:
>srand;
>$A = int (rand (4))
>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"};
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
