perl如何找出数组内出现2次的数据项

作者: guoshicheng2005   发布时间: 2011-07-16

拉板凳围观高手，写个垃圾版的

1. #!/usr/bin/perl
   
2. my @a=qw(AM AT ATM MM NN AN ATM MM);
   
3. foreach(@a){$b{$_}=0;}
   
4. foreach(@a){if(defined $b{$_}){$b{$_}++;}}
   
5. foreach(keys %b){if ($b{$_} == 2){print "$_\n";} }

复制代码

作者: chenhao392   发布时间: 2011-07-16

作者: yinyuemi   发布时间: 2011-07-16