あれから鰊は何処へ行ったやら〜♪ 総合スレ★１
355 ：ビロリ：
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
<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 ：2012/01/28(土) 21:18:03.75 ID:sxaDme340
なんだあれは、、、巨人スレだらけ。。日本のインチキ規格はイラネ
357 ：動け動けウゴウゴ２ちゃんねる：2012/01/28(土) 21:18:07.49 ID:bOo/arkF0
358 ：ビロリ：2012/01/28(土) 21:20:01.50 ID: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);
$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);