Perl习题强力挫败感求指教

[liu滔]

Perl小白一枚，今天看那本《C程序员精通Perl》的``子过程和模块''部分，尝试了做后面的一道

习题，接着就迎来了强烈的挫败感啊

题目是``编写一个交换两个数组的子过程''，好吧，我冥思苦想的糟糕代码如下
[perl]
use strict;
use warnings;

my @st = qw(I have a dream);
my @nd = qw(Do you have dream);

print "first array: @st\nsecond array: @nd\n";

sub swap_array(\@\@) {
my $first = shift;
my $second = shift;
my $i = 0;
my $t;

foreach my $elt (@{$first}) {
$t = $$first[$i];
$$first[$i] = $$second[$i];
$$second[$i] = $t;
$i++;
}
}

swap_array(@st, @nd);
print "First array: @st\nSecond array: @nd\n";

[/perl]

我知道各位大神一定有更好的方法的，请告诉我以让我死个明白慷慨就义吧

[eexpress]

学术研究，可以找 cfy/tusooa
自带的功能，不去研究内部了。
@a=@b

[ChenFengyuan]

[perl]#!/usr/bin/perl

use strict;
use warnings;
use YAML;

my @a=qw(1 2 3);
my @b=qw(a b c);
my @t;
@t=@a;
@a=@b;
@b=@t;
print Dump \@a;
print "#" x 42;
print Dump \@b;
[/perl]
结果

---
- a
- b
- c
##########################################---
- 1
- 2
- 3

[liu滔]

楼上两位，能不能给个定义子程序的例子呢，我现在就是搞不清楚Perl的那个引用啊，

传递参数的时候不是应该用引用吗？那引用传递进去了应该怎么恢复成原来的那个数组呢？

[tangboyun]

Perl里，标量的交换可以这么写：
($b,$a) = ($a,$b);
但array的话是不行的。

楼主你题目里，那2个数组一定等长吗？

[eexpress]

看书的，入门反而慢。

看实例，边看边学。别浪费时间，研究没用的过程。交换的，直接临时数组赋值而已，不论长度。

[liu滔]

Perl里，标量的交换可以这么写：
($b,$a) = ($a,$b);
但array的话是不行的。

楼主你题目里，那2个数组一定等长吗？

可以假设它们是等长的 我那个就是假设了两者等长的

[liu滔]

看书的，入门反而慢。

看实例，边看边学。别浪费时间，研究没用的过程。交换的，直接临时数组赋值而已，不论长度。

刚才在折腾Apache，因为要学习用Perl来写CGI程序，无奈Apache不会用，配置起来相当不懂，现在觉得好纠结啊

[eexpress]

网页，网站的事情，你可以找叶子。
哦。你可以加入perlchina的googlecode的讨论组，可以问任何网络问题。都是些搞网站的在。
还有大公司介绍工作的。

[tusooa]

代码： 全选

● perl -e '$a=[qw/a b c/];$b = [qw/A B C/];($a, $b) = ($b, $a); print "@$a\n@$b\n";'
A B C
a b c

reference是好东西啊。