一般海外生活板の過去レスコピペ荒らし報告

# 下手糞な Perl のスクリプトを提供しますので、Janeで全datをダウンロードしてから実行してみてください。

%ids = ();
@datastack = ();
$dat_directory = "D:/OpenJane/Logs/2ch/生活/一般海外生活/";
$format = "http://life.2ch.net/test/read.cgi/world";
$output_file = "world.txt";
opendir(DATDIR, $dat_directory) || die "Cannot open $dat_directory.\n";
@files = readdir(DATDIR);
closedir(DATDIR);
open(LOGFILE, ">> $output_file") || die "Cannot open $output_file.\n";
print LOGFILE "\n";
foreach $file (@files) {
if ($file =~ /\.dat$/) {
$dat_file = "$dat_directory$file";
($dat_no, $dummy) = split(/\./, $file);
if (open(DATFILE, $dat_file) == 0) {
print "Cannot open $dat_file.\n";
next;
}
$lineno = 1;
while ($line = <DATFILE>) {
($name, $mail, $info, $text) = split(/\<\>/, $line);
($date, $time, $id) = split(/ /, $info);
if ($name =~ /わ\s*む\s*て/ && $date eq "03/12/07") {
print ".";
if ($ids{$id}) {
$ids{$id} = $ids{$id} + 1;
} else {
$ids{$id} = 1;
}
push(@datastack, "$id $date $time $format/$dat_no/$lineno");
}
$lineno++;
}
close(DATFILE);
}
}
@sorteddata = sort @datastack;
foreach $line (@sorteddata) {
($id, $date, $time, $url) = split(/ /, $line);
print LOGFILE "$url $date $time $id\n";
}
print LOGFILE "\n";
foreach $id1 (keys(%ids)) {
print LOGFILE "$id1 ($ids{$id1})\n";
}
close(LOGFILE);