如何实现循环中数组值得增加？？

大司南

UID: 44465
帖子: 155
积分: 356
在线时间: 1 天 9 小时

1^# 大司南发表于 2007-11-21 17:58

如何实现循环中数组值得增加？？

大概思路如下:
...
foreach my $rl (@tmp1){
foreach my $ex (@box){
if ($ex ne $rl ){push(@box,$rl);}
}}
...

运行起来会出问题，请问有没有好的解决办法？？

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

2^# 放驴娃发表于 2007-11-21 18:35

你这个逻辑很混乱啊。
不如你先描述一下你想要干啥。

大司南

UID: 44465
帖子: 155
积分: 356
在线时间: 1 天 9 小时

3^# 大司南发表于 2007-11-21 18:39

QUOTE:

原帖由放驴娃于 2007-11-21 18:35 发表
你这个逻辑很混乱啊。
不如你先描述一下你想要干啥。

如果$rl不在@box里面的就加入@box里面

Lonki

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

4^# Lonki 发表于 2007-11-21 20:08

明显的逻辑错误, 代码中, $rl与@box中有多少个元素不等, 就被添加多少次

biginner

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

5^# biginner 发表于 2007-11-21 21:24

#!/usr/bin/perl -w

@a = (1,3,5,6,7,;
@b = (2,3,5,7,9);

%seen=();
@differ=();

foreach (@b){
$seen{$_}=1;
}
@differ=grep(! $seen{$_},@a);

push @b,@differ;

print "@b\n";

这个是不是符合lz需要？

ulmer

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

6^# ulmer 发表于 2007-11-21 21:35

QUOTE:

原帖由大司南于 2007-11-21 18:39 发表

如果$rl不在@box里面的就加入@box里面

Hi,

the basic logic is to fetch different (or same) element in two arrays
and then put the different element into a new array.
Using map and hash is one of the many ways to do that.
For example:

QUOTE:

@arr1 = ("a", "b", 8, 2);
@arr2 = ("a","c", 8, 9);
%hash = map { $_=>1 } (@arr1, @arr2);
@arr3 = sort keys %hash;
# test output:
print join ", ", @arr3;

'

--ulmer

biginner

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

7^# biginner 发表于 2007-11-21 21:47

又学习了

Lonki

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

8^# Lonki 发表于 2007-11-21 22:07

QUOTE:

@differ=grep(! $seen{$_},@a);

正则不完善, 如果@a中元素是多位数呢..

QUOTE:

%hash = map { $_=>1 } (@arr1, @arr2);

很巧妙.

biginner

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

9^# biginner 发表于 2007-11-21 22:15

多谢提醒！