[已解决]：有对数组进行唯一化操作的函数吗？

perljoker

如题，就是有没有那么一个函数可以使数组元素唯一话，自动删除数组重复值
如果没有，那就自己写了

已经得到解决，在于keys得到的数组会丢失引用信息（认为是字符串，不是引用了，具体我也不懂为什么）

引用Lonki例子：

1. my @array_a = (11, 22, 33);
   
2. my @array_b = (1, \@array_a, 2, \@array_a, 2);
   
3. print "$array_b[1], $array_b[1]->[0]\n";
   
4. 
   
5. unique_array(\@array_b);
   
6. print "$array_b[2], $array_b[2]->[0]\n";
   
7. 
   
8. sub unique_array{
   
9.     my $arref = shift;
   
10.     my %tmphash = map {$_ => $_} @$arref;
    
11.     @$arref = sort values(%tmphash);
    
12. }

复制代码

精简函数版：

1. sub unique_array{
   
2.     my $arref = shift;
   
3.     @$arref = sort values %{{map {$_ => $_} @$arref}};
   
4. }

复制代码

精简非函数版：

1. @array_b = sort values %{{map {$_ => $_} @array_b}};
   

复制代码

[ 本帖最后由 perljoker 于 2008-1-3 14:40 编辑 ]

zhuomingliang

在php 里面 ，可以使用array_unique

perl 的某个module 里面应该有吧

royalzhang

my @aa = (1,1,2,2,3,3,4,4); my %qq = my @pp = map {$_,undef} @aa; my @aa = keys %qq; print @aa;

perljoker

我自己写的函数是：

1. 
   
2. sub unique_array{
   
3.         my $arref=shift;
   
4.         my %tmphash;
   
5.         for(my $i=0;$i<@$arref;$i++){
   
6.                 $tmphash{$arref->[$i]}++;
   
7.         }
   
8.         @$arref = sort keys(%tmphash);
   
9. }
   

复制代码

但是，发现一个很重要的问题，数组里面的数组引用的信息似乎丢失了（数组里面存的全都是数组的引用）
Can't use string ("ARRAY(0x8ffd680)") as an ARRAY ref while "strict refs" in use at ./nhx_cmp.pl

为什么呢？因为经过了hash的转化？

perljoker

补充一点，去掉了use strict;
那些引用值也是无效的了，都变成未初始化的值了


顺便问一句：
royalzhang 的
my %qq = my @pp = map {$_,undef} @aa;
的@pp我感觉没什么用吧……，直接用%qq=就可以了吧？

alexru

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Array::Utils qw(:all);
   
5. 
   
6. my @aa = (1,1,2,2,3,3,4,4);
   
7. print $_, "\n" foreach unique(@aa);

复制代码

Lonki

测了下你的代码, 一切正常. 另外, 用hash就不需要计数了吧.
use strict;
use warnings;
#use 5.010;
use Data::Dumper;

my @array_a = (1, 2, 3);
my @array_b = (1, \@array_a, 2, \@array_a, 2);
unique_array(\@array_b);
print(Dumper(\@array_b));

sub unique_array{
    my $arref = shift;
    my %tmphash;
    for(my $i=0;$i<@$arref;$i++){
        $tmphash{$arref->[$i]}++;
    }
    @$arref = sort keys(%tmphash);
}


贴上有问题的代码???

[ 本帖最后由 Lonki 于 2008-1-2 23:07 编辑 ]

perljoker

1. #! /usr/bin/perl -w
   
2. #        perl.pl
   
3. 
   
4. use strict;        use warnings;
   
5. 
   
6. my @aa=("sdf","sdlfk");my @bb=("sdf","sdlfk");
   
7. my @hh=("sdf","sdlfk");my @cc=("sdf","sdlfk");
   
8. my @gg=("sdf","sdlfk");my @dd=("sdf","sdlfk");
   
9. my @ff=("sdf","sdlfk");my @ee=("sdf","sdlfk");
   
10. 
    
11. my @tmp=(\@aa,\@bb,\@cc,\@dd,\@ee,\@ff,\@aa,\@bb);
    
12. print "@tmp\n";
    
13. foreach(@tmp){
    
14.         print $_->[0],"\n";
    
15. }
    
16. 
    
17. unique_array(\@tmp);       
    
18. print "@tmp\n";
    
19. foreach(@tmp){
    
20.         print $_->[0],"\n";
    
21. }
    
22. #sub tem{}
    
23. sub unique_array{
    
24.         my $arref=shift;
    
25.         my %tmphash;
    
26.         for(my $i=0;$i<@$arref;$i++){
    
27.                 $tmphash{$arref->[$i]}++;
    
28.         }
    
29.         @$arref = sort keys(%tmphash);
    
30. }
    

复制代码

perljoker

就说，他还识别那个地址的字符串
但貌似他认为那是个字符串，不是引用指向的东西

你那个代码还是无法得到@array_a里面的值


谢谢6楼提供的模块，可是也不能继续用引用
大家帮我分析下，是我自己的问题么？

[ 本帖最后由 perljoker 于 2008-1-3 10:50 编辑 ]

flw

原帖由 perljoker 于 2008-1-3 10:37 发表
就说，他还识别那个地址的字符串
但貌似他认为那是个字符串，不是引用指向的东西

你那个代码还是无法得到@array_a里面的值


谢谢6楼提供的模块，可是也不能继续用引用
大家帮我分析下，是我自己的问题么？

hint: use values to instead keys.