如何取出数组中的不同元素并存入一个数组里

andyhau791010

以下的数组：@read={"0101","0101","0102","0101","0103","0102"}
我如何得到这样的数组：@read={"0101","0102","0103"}
急用，谢谢大家。

不死草

我很久以前写的一个专门处理的函数，可能比较烂，但是处理你的问题应该没问题，呵呵。
哦，还是小小的修改一下。

1. 
   
2. sub aonly
   
3. {
   
4.         my @atemp = @_;
   
5.         my @atemp1;
   
6.   for my $i (0..$#atemp)
   
7.         {
   
8.                 my $atmp1 = rtrim($atemp[$i]);
   
9.                 if($atmp1 ne "")
   
10.                 {
    
11.                         for my $j (($i+1)..$#atemp)
    
12.                         {
    
13.                                 my $atmp2 = rtrim($atemp[$j]);
    
14.                           if($atmp2 eq $atmp1)
    
15.                                 {
    
16.                                         $atemp[$j]="";
    
17.                                 }
    
18.                         }
    
19.                         push @atemp1,$atmp1;
    
20.                 }
    
21.         }
    
22.         @atemp=@atemp1;
    
23.         return @atemp;
    
24. }

复制代码

[ 本帖最后由 不死草 于 2008-8-27 14:58 编辑 ]

不死草

呵呵，忘了，还有个配合的函数。。。

1. 
   
2. # trim space / tab at the right end
   
3. sub rtrim {
   
4.         my $r = shift;
   
5.         $r =~ s/[      \n\r]+$//;
   
6.         return $r;
   
7. }
   

复制代码

andyhau791010

谢谢，多谢，问题解决了

hfahe

两个for效率低一点 用hash好一点

Nosferatu

use List::MoreUtils qw(uniq);

flw

http://www.unix.com.ua/orelly/perl/cookbook/ch04_07.htm

不死草

哦，好吧，用hash...呵呵。

1. 
   
2. sub No_Duplicate_Array
   
3. {
   
4.         my @array = @_;
   
5.         my $hash;
   
6.         for my $i(0..$#array)
   
7.         {
   
8.                 $hash{$array[$i]} = undef;
   
9.         }
   
10.         return @array = keys(%hash);
    
11. }
    
12. 
    

复制代码

forlorngenius

ulmer

原帖由 andyhau791010 于 2008-8-27 14:10 发表
以下的数组：@read={"0101","0101","0102","0101","0103","0102"}
我如何得到这样的数组：@read={"0101","0102","0103"}
急用，谢谢大家。

Are you sure that your array expression with "{}" instaed of "()" is RIGHT?
@read={"0101","0101","0102","0101","0103","0102"}
That is an array contains reference to hash!!!

For extracting an uniq array, hash and map can be used too:
@read = ("0101", "0101", "0102", "0101", "0103", "0102");
%seen = map {$_, 1} @read;
@uniq = sort keys %seen;
print "@uniq";