perl 子程序传递多个数组到底怎么玩？？

justinyun

UID: 25246
帖子: 2
积分: 4
在线时间: 10 分钟

1^# justinyun 发表于 2007-12-19 17:57

perl 子程序传递多个数组到底怎么玩？？

还有需要返回数组！

有没有相关的module可以用的！这个比较麻烦！

zhuomingliang

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

2^# zhuomingliang 发表于 2007-12-19 18:27

@tailings = popmany (\@a, \@b, \@c, \@d );

sub popmany {
        my @retlist = ();
        for my $aref (@_) {
                push @retlist, pop @$aref;
        }
        return @retlist;
}

justinyun

UID: 25246
帖子: 2
积分: 4
在线时间: 10 分钟

3^# justinyun 发表于 2007-12-19 20:53

那样子相当于赋给一个数组，

如果一一对应的赋给关联数组，应该怎么办？

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

4^# redicaps 发表于 2007-12-19 21:10

QUOTE:

原帖由 justinyun 于 2007-12-19 20:53 发表
那样子相当于赋给一个数组，

如果一一对应的赋给关联数组，应该怎么办？

啥意思？

Lonki

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

5^# Lonki 发表于 2007-12-19 21:26

QUOTE:

原帖由 justinyun 于 2007-12-19 20:53 发表
那样子相当于赋给一个数组，

如果一一对应的赋给关联数组，应该怎么办？

返回hash

justinyun

UID: 25246
帖子: 2
积分: 4
在线时间: 10 分钟

6^# justinyun 发表于 2007-12-19 23:46

我直接把配置文件改了，弄成两个分隔符，用两个split！

返回hash，不太懂！能不能example一下！

Lonki

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

7^# Lonki 发表于 2007-12-20 00:59

QUOTE:

原帖由 justinyun 于 2007-12-19 20:53 发表
那样子相当于赋给一个数组，

如果一一对应的赋给关联数组，应该怎么办？

你是要返回一个hash赋给hash ???

my %hash = TestReturn();

sub TestReturn {
return (a => 11, b => 22);
}

还是别的???

larrykun

UID: 36370
帖子: 123
积分: 282
在线时间: 20 小时

8^# larrykun 发表于 2008-08-26 21:54

二楼的签名很酷，老大可以共享一下实现吗？谢谢了！

khandielas

UID: 1557
帖子: 117
积分: 269
在线时间: 19 小时

9^# khandielas 发表于 2008-08-26 22:59

可以把想要赋值的也pass到子程序里去，直接在子程序中赋值。

wangsheng0415

UID: 25817
帖子: 126
积分: 289
在线时间: 22 小时

10^# wangsheng0415 发表于 2008-08-27 12:53

什么意思?
两个数组组成一个hash吗