どっかで聞いた希ガス
その「まとめるツール」は、私も欲しいな
誰かが書いたperl用だけどよかったら
↓ここから
#!c:\\perl\\bin\\perl
use strict;
my %hash;
print "files:";
for(@ARGV){
my $filename = $_;
if (-f $filename){
print "$filename ";
open FH,$filename or die "cannot file open\n";
for(<FH>){
my ($handle,$mail,$date,$subj,$subj2,$remote,$ip,$tmp,$Agent);
($handle,$mail,$date,$subj,$subj2,$remote,$ip,$tmp,$Agent) = split "<>|<>|・>|<>",$_;
($subj,$subj2,$remote,$ip,$tmp,$Agent) = split ("<>|<>",$subj|"<>|<>|・>|<>",$remote) if ($remote =~ /\<\>/g);
$remote = $ip if($remote eq "");
$hash{$remote}++;
}
close(FH);
}
}
print "\n\n";
my ($total,$max,$maxkey);
for(sort(keys %hash)){
my $key = $_;
my $result = $hash{$key};
if ($key ne ""){
print "$key $result レス\n";}
}
↑ここまで"imomatome.pl"等で保存
ソースファイルを引数にしてファイルへリダイレクトするといい。
141 :
137:2006/08/20(日) 06:40:09 ID:gti8yNLM0
>>140 ご親切にありがとうございます。
perlの勉強後、機会がありましたら使わせていただきます。
142 :
名無しさん@ピンキー:2006/08/20(日) 06:40:50 ID:ueWuiewn0
pinkの荒らしの焼き依頼ってどこにするんでしたっけ。
>>143 以前電番晒し荒らしを芋掘りスレで報告して焼いて貰ったけど
あれは携帯だったからかな。
重点対象・ピンポイント焼き依頼スレ
なんての作ってちょろさんに見て貰えばどうでしょう?
あら。解決するっぽいのでこの質問さげます。
>>143 正義のBBQスレ
軍艦サンが焼却したやつかな?
>>141 荒らしやFOXさんに負けないように頑張ってください。
すでにperlを入れている人は2行ほどの簡単なバッチを書いておくと便利です。
>>140の"imomatome.pl"と同じところに
↓ここから
%echo off
echo/
echo 全自動芋まとめ
echo ソースを貼り付け,Ctrl+Zで終了
copy con imo.txt
imomatome.pl imo.txt >matome.txt
↑ここまでを"imomatome.bat"で保存
このバッチを起動して専ブラのLOG開示部分をCOPY、貼り付け
Ctrl+Z,Enterで作ったソースファイルをimomatome.plが集計してmatome.txtに書き出します。