请教比较两个数组的差异

casper0511

1. my @a = (1..10);# 1 2 3 4 5 6 7 8 9 10
   
2. my @b = (3..6);# 3 4 5 6
   
3. my @c = diff(\@a,\@b);
   
4. foreach (@c){
   
5.         print $_."\n";
   
6. }
   
7. 
   
8. sub diff{
   
9.         my ($array1,$array2) = @_;
   
10.         #print "$array1,$array2\n";
    
11.         my @array3;
    
12.         my %count = ();
    
13.         foreach my $element(@$array1,@$array2){
    
14.                 $count{$element}++;  ##请问%count的值是怎么赋的？为什么%count有10个数据项？
    
15.         }
    
16.         foreach my $element (keys %count){
    
17.             print my @b = keys %count;
    
18.             print "\n";
    
19.             print my @a = values %count;
    
20.             print "\n";
    
21.                 push @array3,$element if( $count{$element} == 1 );
    
22.         }
    
23.         return sort @array3;
    
24. }

复制代码

输出结果：

63792814105
2211111212
63792814105
2211111212
63792814105
2211111212
63792814105
2211111212
63792814105
2211111212
63792814105
2211111212
63792814105
2211111212
63792814105
2211111212
63792814105
2211111212
63792814105
2211111212
1
10
2
7
8
9

yybmsrs

(@$array1,@$array2)有10个不同的数值，%count就有10个主键

toniz

$count{$element}++;  

遍历@a和@b的元素，并插到%count这个HASH中，如果KEY相同的，就+1。
也就是说，在%count中的VALUE是2的就是@a和@b的相同的元素，不同的就是1.

casper0511

(@$array1,@$array2)有10个不同的数值，%count就有10个主键
yybmsrs 发表于 2010-07-22 15:13

还想请教一下这段 $count{$element}++; 不理解

casper0511

$count{$element}++;  

遍历@a和@b的元素，并插到%count这个HASH中，如果KEY相同的，就+1。
也就是说， ...
toniz 发表于 2010-07-22 15:15

谢谢~这是个简写么 有没有笨点儿的写法

yybmsrs

这个不是什么简写吧，就是这么用的

toniz

1. if(!exists $count{$element} ){         
   
2. $count{$element}=1;
   
3. }     
   
4. else{      
   
5. $count{$element}=$count{$element}+1;
   
6. }
   
7. 
   

复制代码

Wayne_sama

#   foreach my $element(@$array1,@$array2){
#                 $count{$element}++;  ##请问%count的值是怎么赋的？为什么%count有10个数据项？
#         }
关于这句能不能再解释清楚点？

casper0511

toniz 发表于 2010-07-22 15:27

谢谢~理解了 这个++好灵活啊

wfnh

转化为hash吧·