ARRAY操作

cecial

jason680 发表于 2012-03-30 16:53
回复 17# cecial

>>这是从实际需求出发。

呵呵，我的需求就是不用去考虑元素的顺序啊。

kk861123

cecial 发表于 2012-03-30 17:27
呵呵，我的需求就是不用去考虑元素的顺序啊。

其实论坛里N多这种需求的帖子了，你搜搜看。另外，perl cookbook上也有很多实例。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my @a = qw(a b c d e f);
   
7. my @b = qw(v d c a f n);
   
8. 
   
9. my %m;
   
10. $m{$_}++ for @a,@b;
    
11. 
    
12. my (@same,@diff,@union);
    
13. while (my($k,$v) = each %m) {
    
14.         push @union,$k;
    
15.         push @same, $k if $v > 1;
    
16.         push @diff, $k if $v == 1;
    
17. }
    
18. 
    
19. print Dumper \@union;
    
20. print Dumper \@same;
    
21. print Dumper \@diff;

复制代码

cecial

回复 22# kk861123
谢谢！
我的重点不是怎么实现，而是怎么最简练的实现。
另外，两个array 的diff，我想得到的是两个另外的array，各自存放属于原来array的元素，不是一整个。


   

kk861123

cecial 发表于 2012-03-31 11:58
回复 22# kk861123
谢谢！
我的重点不是怎么实现，而是怎么最简练的实现。

好的。

1. sub common {
   
2.         my %m;
   
3.         return [ grep { $m{$_}++ == 1 } @{$_[0]},@{$_[1]} ];
   
4. }
   
5. sub diff {
   
6.         my %m;
   
7.         $m{$_}++ for @{$_[0]},@{$_[1]};
   
8.         return [ grep { $m{$_} == 1 } @{$_[0]}],[ grep { $m{$_} == 1 } @{$_[1]}];
   
9. }
   
10. sub uniq {
    
11.         my %m;
    
12.         return [ grep { $m{$_}++ != 1 } @{$_[0]},@{$_[1]} ];
    
13. }

复制代码

freewind31

回复 24# kk861123


    看不懂，求解释，呵呵