△▲ WebProg 初心者の質問 pert14▲△

△▲ WebProg 初心者� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

442:nobodyさん
 06/09/22 20:30:05 5UPEhA2T
すみません、Perlでお尋ねしたいことがあります。 
 
log.cgi　というファイルに下記のフォーマットでログがあります。 
------- 
192.168.0.1<>2006-09-01-19-15-25<> 
192.168.0.2<>2006-09-01-19-15-28<> 
192.168.0.1<>2006-09-01-19-15-30<> 
------- 
このログから、IPの重複チェックと重複チェック後の 
IPのカウント回数を拾いたいのですが重複チェックの仕方とカウントがわからず。。 
------ 
192.168.0.1(2) 
192.168.0.2(1) 
------ 
という形で出力させたいのです。ご指南下さい。お願い致します。

443:nobodyさん
 06/09/22 21:44:11 ylIVQowl
ここがわかりやすい 
http://meblo.jp/diary/diary.php?dir=47&uid=akiha0307&num=1

444:nobodyさん
 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)

次ページ