06/09/22 21:58:13
>>442
読み込み部分は分かっているものとして省略するが、
@data = (
"192.168.0.1<>2006-09-01-19-15-25<>\n",
"192.168.0.2<>2006-09-01-19-15-28<>\n",
"192.168.0.1<>2006-09-01-19-15-30<>\n"
);
foreach $data (@data) {
chomp($data);
($ip, $date, $etc) = split(/<>/, $data);
if ($count{$ip}) {
$count{$ip}++;
} else {
$count{$ip} = 1;
}
}
print "Content-type: text/plain\n\n";
foreach $ip (sort(keys(%count))) {
print $ip . "(" . $count{$ip} . ")\n";
}
出力結果：
192.168.0.1(2)
192.168.0.2(1)