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

andyhau791010

UID: 16154
帖子: 82
积分: 188
在线时间: 9 小时

1^# andyhau791010 发表于 2008-08-27 14:10

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

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

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

2^# 不死草发表于 2008-08-27 14:44

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

[Copy to clipboard] [ - ]

CODE:

sub aonly
{
my @atemp = @_;
my @atemp1;
for my $i (0..$#atemp)
{
my $atmp1 = rtrim($atemp[$i]);
if($atmp1 ne "")
{
for my $j (($i+1)..$#atemp)
{
my $atmp2 = rtrim($atemp[$j]);
if($atmp2 eq $atmp1)
{
$atemp[$j]="";
}
}
push @atemp1,$atmp1;
}
}
@atemp=@atemp1;
return @atemp;
}

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

3^# 不死草发表于 2008-08-27 14:45

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

[Copy to clipboard] [ - ]

CODE:

# trim space / tab at the right end
sub rtrim {
      my $r = shift;
      $r =~ s/[    \n\r]+$//;
      return $r;
}

andyhau791010

UID: 16154
帖子: 82
积分: 188
在线时间: 9 小时

4^# andyhau791010 发表于 2008-08-27 15:01

谢谢，多谢，问题解决了

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

5^# hfahe 发表于 2008-08-27 15:05

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

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

6^# Nosferatu 发表于 2008-08-27 15:53

use List::MoreUtils qw(uniq);

flw

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

7^# flw 发表于 2008-08-27 15:59

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

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

8^# 不死草发表于 2008-08-27 16:03

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

[Copy to clipboard] [ - ]

CODE:

sub No_Duplicate_Array
{
my @array = @_;
my $hash;
for my $i(0..$#array)
{
$hash{$array[$i]} = undef;
}
return @array = keys(%hash);
}

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

9^# forlorngenius 发表于 2008-08-27 17:10

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

10^# ulmer 发表于 2008-08-27 17:26

QUOTE:

原帖由 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";