|
发表于 2013-7-4 11:36:07
|
显示全部楼层
回复 1# E2TML
可以返回数组:
# Function definition.
sub get_value()
{
my(@$var_a,@var_b);
@var_a=(1,2);
@var_b=(30,40);
return(\@var_a,\@var_b);
} ######### Main script
my(@result_a,@result_b);
my($result_a_ref,$result_b_ref);
($result_a_ref,$result_b_ref)=get_value(); # here need to encode the reference
@result_a=@$result_a_ref; @result_b=@$result_b_ref;
print"\@result_a=@result_a\n\@result_b=@result_b\n"; ####### print result is:
@result_a=1,2
@result_b=30,40 |
|