12/01/28 21:16:08.50 bfZGe84x0
print <<EOF;
<html><head><title>ＥＲＲＯＲ！</title><meta http-equiv="Content-Type" content="text/html; charset=shift_jis"></head>
<body><!-- 2ch_X:error -->
あれから鰊は何処へ行ったやら～♪ (あと $ato sec)<br>
</body>
</html>
EOF
356:ちゃむち♪ ◆ULTechnoro
12/01/28 21:18:03.75 sxaDme340
なんだあれは、、、巨人スレだらけ。。日本のインチキ規格はイラネ
357:動け動けウゴウゴ２ちゃんねる
12/01/28 21:18:07.49 bOo/arkF0
>>355
いやそれでなくて
その判定を出す方を
358:ビロリ
12/01/28 21:20:01.50 bfZGe84x0
($prsize, $prmtime) = (local $_=stat($yakinFile)) ? ($_->size, $_->mtime) : (0, 0);
$ctime = time;
$keika = $ctime - $prmtime;
#初めて
if(!$prsize)
{
open(YAN1,">>$yakinFile");print YAN1 "1";close(YAN1);
return 1;
}
#二回目以降
if($keika < $spanspan)
{
my $ato = $spanspan - $keika ;
# open(YAN1,">>$yakinFile");print YAN1 "1";close(YAN1);
print "Content-type: text/html; charset=shift_jis\n\n";
print <<EOF;
<html><head><title>ＥＲＲＯＲ！</title><meta http-equiv="Content-Type" content="text/html; charset=shift_jis"></head>
<body><!-- 2ch_X:error -->
あれから鰊は何処へ行ったやら～♪ (あと $ato sec)<br>
</body>
</html>
EOF
exit;
}
# unlink($yakinFile);
open(YAN1,">>$yakinFile");print YAN1 "1";close(YAN1);
359:動け動けウゴウゴ２ちゃんねる
12/01/28 21:22:59.25 ECTCVTQm0
そんなことよりいつの間にびろりになったんだ