#!/usr/bin/perl
($one,$two)=&Test();
@array1=@$one;
@array2=@$two;
sub Test(){
@first=qw(1 2 3 4 5);
@second=qw(6 7 8 9 10);
return (\@firest , \@second);
}
foreach $i (@array1){
print "$i ";
}
print "\n";
foreach $i (@array2){
print "$i \n";
}
-----------------------------------------------------
print result:
1 2 3 4 5
6
7
8
9
10
請先 登入 以發表留言。