新手问题，如何处理下面格式文本。。。

tyz

文本格式如下：
[pap] tianyz@mi800.netasswords don't matchhhhh...
[pap] tianyz@mi800.netasswords don't matchhhhh...
[pap] tianyz@mi800.netasswords don't matchhhhh...
[pap] tianyz@mi800.netasswords don't matchhhhh...
[pap] admin@mi800.netasswords don't matchhhhh...
[pap] admin@mi800.netasswords don't matchhhhh...
[pap] admin@mi800.netasswords don't matchhhhh...
[pap] admin@mi800.netasswords don't matchhhhh...

需求如下：
统计各个账号在上面文本中出现的次数，具体如下：
tianyz@mi800.net 4
admin@mi800.net 4
并存到数据库的相应表中。

用perl如何实现，我今天下午刚开始看perl，绝对的新手，但是这事情还比较着急，大家提供下帮助吧。

tyz

另外，文本是从文件中读到的。例如：res.cf

tyz

当中的笑脸是冒号

lucash

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. foreach(<>){
   
5.     @_ = split/\s+|:/;
   
6.     $count{$_[1]}++;
   
7. }
   
8. 
   
9. foreach $key (keys %count){
   
10.     print "$key  $count{$key}\n";
    
11. }
    
12. 
    

复制代码

tyz

回复 4# lucash


    3q，可以了。。