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

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

1^# perljoker 发表于 2008-01-02 16:47

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

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

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

引用Lonki例子：

[Copy to clipboard] [ - ]

CODE:

my @array_a = (11, 22, 33);
my @array_b = (1, \@array_a, 2, \@array_a, 2);
print "$array_b[1], $array_b[1]->[0]\n";

unique_array(\@array_b);
print "$array_b[2], $array_b[2]->[0]\n";

sub unique_array{
my $arref = shift;
my %tmphash = map {$_ => $_} @$arref;
@$arref = sort values(%tmphash);
}

精简函数版：

[Copy to clipboard] [ - ]

CODE:

sub unique_array{
my $arref = shift;
@$arref = sort values %{{map {$_ => $_} @$arref}};
}

精简非函数版：

[Copy to clipboard] [ - ]

CODE:

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

zhuomingliang

UID: 40835
帖子: 179
积分: 411
在线时间: 1 天 19 小时

2^# zhuomingliang 发表于 2008-01-02 18:08

在php 里面，可以使用array_unique

perl 的某个module 里面应该有吧

royalzhang

UID: 25162
帖子: 1
积分: 2
在线时间: 10 分钟

3^# royalzhang 发表于 2008-01-02 18:31

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

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

4^# perljoker 发表于 2008-01-02 18:37

我自己写的函数是：

[Copy to clipboard] [ - ]

CODE:

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

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

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

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

5^# perljoker 发表于 2008-01-02 18:47

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

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

alexru

UID: 11790
帖子: 75
积分: 172
在线时间: 8 小时

6^# alexru 发表于 2008-01-02 21:24

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
use Array::Utils qw(:all);

my @aa = (1,1,2,2,3,3,4,4);
print $_, "\n" foreach unique(@aa);

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

7^# Lonki 发表于 2008-01-02 23:02

测了下你的代码, 一切正常. 另外, 用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);
}

贴上有问题的代码???

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

8^# perljoker 发表于 2008-01-03 10:31

[Copy to clipboard] [ - ]

CODE:

#! /usr/bin/perl -w
# perl.pl

use strict; use warnings;

my @aa=("sdf","sdlfk");my @bb=("sdf","sdlfk");
my @hh=("sdf","sdlfk");my @cc=("sdf","sdlfk");
my @gg=("sdf","sdlfk");my @dd=("sdf","sdlfk");
my @ff=("sdf","sdlfk");my @ee=("sdf","sdlfk");

my @tmp=(\@aa,\@bb,\@cc,\@dd,\@ee,\@ff,\@aa,\@bb);
print "@tmp\n";
foreach(@tmp){
print $_->[0],"\n";
}

unique_array(\@tmp);
print "@tmp\n";
foreach(@tmp){
print $_->[0],"\n";
}
#sub tem{}
sub unique_array{
my $arref=shift;
my %tmphash;
for(my $i=0;$i<@$arref;$i++){
$tmphash{$arref->[$i]}++;
}
@$arref = sort keys(%tmphash);
}

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

9^# perljoker 发表于 2008-01-03 10:37

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

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

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

10^# flw 发表于 2008-01-03 10:54

QUOTE:

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

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

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

hint: use values to instead keys.