请教perl 文件中字符串的问题

qianzhuo

1^# qianzhuo 发表于 2008-11-11 12:18

日志文件.txt中，有N个IP地址，IP地址在文件中有重复
想从日志文件中取出IP地址在该文件中出现的次数。

请高手赐教。谢谢

odacharlee

2^# odacharlee 发表于 2008-11-11 12:51

sort | uniq -c

machine

3^# machine 发表于 2008-11-11 22:51

while(<FILE>){
chmop;
my ip{$_}++;
}

yangsf5

4^# yangsf5 发表于 2008-11-11 23:28

QUOTE:

原帖由 machine 于 2008-11-11 22:51 发表
while(){
chmop;
my ip{$_}++;
}

$ip{$_}++;

ynchnluiti

5^# ynchnluiti 发表于 2008-11-12 01:26

perl -ne 'while(/(\d+\.\d+\.\d+\.\d+)/g) {$ip{$1}++};} for (keys %ip) {print $_,":",$ip{$_}, "\n";' log

machine

6^# machine 发表于 2008-11-12 08:49

笔误呵呵