perl -- 子过程 -->数组参数传入

1、一个数组参数的出传入：

#!/usr/bin/perl
use strict;
use warnings;
my @a = 1..10;
my $total = sum(@a);

sub sum {
        my ($tt) = @_;
        print "$ttn";
        my $total = 0;
        foreach (@$tt){
                $total +=; 

	}

	return $total;

}
print "$totaln";

输出结果：

ARRAY(0xbc92000)
55

#：由此可以看出，一个数组的其实是一个地址，然后遍历该地址就可以处理这个数组的值。

2、多个数组参数的传入：

?

#：

#：

#：

#：

#：

#：

#：

#：