匹配邮件域名的问题？？[已解决]

xxhacker

截取了一行的部分日志格式如下，Rcpt邮件可能有一个或者多个，不确定，以\,分隔，最后以,为结尾，想用正则把匹配到的邮件域名放到散列里面去计数，但是想了许久也不知道怎么去匹配，用函数如split也不知道怎么下手，还望大家帮帮忙！！
Rcpt:abc@gmail.com\,cba@163.com\,,

xfoucs

回复 1# xxhacker

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. my %mail;
   
5. while(<DATA>)
   
6. {
   
7.     while(/@([\w\.]+)\\,/g)
   
8.     {
   
9.         $mail{$1}++;
   
10.     }
    
11. }
    
12. 
    
13. 
    
14. for(keys %mail)
    
15. {
    
16.     print "$_ => $mail{$_}\n";
    
17. }
    
18. 
    
19. __DATA__
    
20. Rcpt:abc@gmail.com\,cba@163.com\,,
    
21. Rcpt:abc@gmail.com\,cba@163.com\,,
    
22. Rcpt:abc@gmail.com\,cba@163.com\,,
    
23. Rcpt:abc@gmail.com\,cba@163.com\,,
    

复制代码

Shell_HAT

1. my $str = 'Rcpt:abc@gmail.com\,cba@163.com\,,';
   
2. $str =~ s/Rcpt:|\\//g;
   
3. my @a = split (/,/,"$str");
   
4. print @a."\n";

复制代码

xxhacker

谢谢各位，我怎么忘了正则里面的/g了，看来好好学习~~

ludio333

my $output = `cat log`;
my @a = $output =~ /\@(.*?)\,/g;