[test] 書き込みテスト 専用スレッド 168 [ﾃｽﾄ]

c403.bat
-----
@echo off
del c403.cgi
wget -N http://qb6.2ch.net/_403/c403.cgi
perl c403.pl

$c403name = "c403.cgi";
($fsize) = (stat($c403name))[7];
($ftime) = (stat($c403name))[9];
$ftime = int($ftime / 60)*60;
open INFILE,$c403name;
binmode(INFILE);
read(INFILE,$fdata,$fsize);
close INFILE;
$fdata =~ s/\n//g;
$fdata =~ s/<tr>/\n<tr>/g;
$fdata =~ s/<\/tr></<\/tr>\n</g;
@lines = split /\n/,$fdata;

open OFILE,">"."!qb6_c403.txt";
for($linen=0;$linen<@lines;$linen++){
$_ = $lines[$linen];
next unless ($_ =~ /boo2008_host/);
($num) = $_ =~ /<td align=right>(\d+)<\/td>/;
($ip,$host,$ctime) = $_ =~ /td> (\d+\.\d+\.\d+\.\d+) \((.*)\) (\d+)<\/td>/;
$calc = $ftime - ($ctime * 60);
$msg = "[".getAnyDateTime($calc)."]"." ".$num." ".$ip." (".$host.")"." ".$ctime;
print OFILE $msg."\n";
}
close OFILE;