>>650
下位ローだった；
しかし、動かせたという事実は覆せないので他でも規制コースになってるはず。

>>651
髪の毛が伸びるんですか？(^_^;)

>>663
こんなのです。

#!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,$remote,$ip,$tmp);
($handle,$mail,$date,$subj,$remote,$ip) = split "<>",$_;
($remote,$tmp) = split "<",$remote if ($remote =~ /\</g);
$remote = $ip if($remote eq "");
$hash{$remote}++;
}
close(FH);
}
}
print "\n";
my ($total,$max,$maxkey);
for(sort(keys %hash)){
my $key = $_;
my $result = $hash{$key};
print "$key $result\n";
}