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

[15 動け動けウゴウゴ２ちゃんねる 2009/12/11(金) 14:11:23 ID:09VQZM370]

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;