请教：一段代码的解释

telecomshy

找出数组中不重复的元素，以下是代码：

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. 
   
5. my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
   
6. my %diff;
   
7. my %same;
   
8. my @diff = grep(!$diff{$_}++, @array);
   
9. 
   
10. print "@diff\n";

复制代码

请问：@diff = grep(!$diff{$_}++, @array);这一句具体执行过程是什么呢？！又起什么作用？想了半天迷迷糊糊的想不明白。

shaneqi

以数组@array中的值为键，以数目为值，如果不重复就加到@diff中

珞水的大叔

1. @diff = grep(!$diff{$_}++, @array)

复制代码

它相当于：

1. for(@array){
   
2.     if(not exists $diff{$_}){
   
3.         push @diff,$_;
   
4.     }
   
5.     $diff{$_}++;
   
6. }

复制代码

Perl_Er

回复 1# telecomshy


    输出列表中的不同元素, 和下面的一样

@unique = grep { ++$count{$_} < 2 }
               qw(a b a c d d e f g f h h);
print "@unique\n";

输出结果: a b c d e f g h

Perl_Er

回复 4# 珞水的大叔


    if(not exists $diff{$_}){应该是相当于if(! $diff{$_}){

telecomshy

感谢大家回复，大致明白了。
才发现没有定义的变量++，会等于0....

1. my $a;
   
2. $a++;
   
3. print $a;

复制代码

$a会等于0。

先前这里没弄清楚，所以怎么都没想明白。

xti9er

找出数组中不重复的元素，以下是代码：请问：@diff = grep(!$diff{$_}++, @array);这一句具体执行过程是什么 ...
telecomshy 发表于 2010-09-19 17:13

     关键在于 hash的 key 不能重复，相当于数据库表中的唯一key

珞水的大叔

回复 6# Perl_Er


    这里的not exists 和 ! 的效果完全相同，所以我就写了not exists，个人感觉这个比较容易理解，呵呵

linux_arm

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. 
   
5. my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
   
6. my %diff;
   
7. my %same;
   
8. my @diff = grep(!$diff{$_}++, @array);
   
9. 
   
10. print "@diff\n";

复制代码

刚试验了一下，发现去掉++也可以
原来++是为了统计重复次数的，呵呵