雪だるま式CGI

**名無しさん＠お腹いっぱい。** · 02/01/30 14:58

#! /usr/local/bin/perl -w
srand;
$i = int(rand 100);
++$i;
print <<END;
Content-type: text/html

END
$j = 0; $k = 0;
foreach(1 .. $i) {
     print "(ﾟдﾟ)ｳﾏｰ";
     if ($j eq 4) { print "<BR>\n"; $j = 0; }
     else { ++$j;}
     if ($k eq 19) { print "ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!!<BR>\n"; $k = 0; }
     else { ++$k; }
}
if ($i eq 100) { print "100get ｲｲ！（・∀・）"; }
exit;