转 Perl函数返回值用法指导

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

http://developer.51cto.com/art/201007/213003.htm

Perl函数返回值用法指导

Perl编程语言中Perl函数返回值用法你是否比较熟悉，这里向大家简单介绍一下，希望本文的介绍能让你有所收获欢迎大家一起来学习有关Perl语言的相关内容。

本文和大家重点讨论一下Perl函数返回值的概念，在Perl中，return语句可以返回一个标量值或者一个列表，这个标量值可以是一个变量，或者一个表达式的最后求值。

Perl函数返回值

在Perl中，return语句可以返回一个标量值或者一个列表，这个标量值可以是一个变量，或者一个表达式的最后求值，如：return1;<===>return(1);return$a+$b;<===>return($a+$b);
然后，一个Perl函数的返回值，并不止一个，有的时候会有多个值需要返回，这是就要用到列表，这个列表可以包含多个变量值。

一、单一变量的Perl函数返回值

#Functiondefinition.
subget_value()
{
my$var;
$var=;
return($var);
}
#########Mainscript
my$result;
$result=get_value();
print"\$result=$result\n";
#######printresultis:
$result=;

二、多个标量的Perl函数返回值

#Functiondefinition.
subget_value()
{
my($var_a,$var_b);
$var_a=;
$var_b=;
return($var_a,$var_b);
}
#########Mainscript
my($result_a,$result_b);
($result_a,$result_b)=get_value();
print"\$result_a=$result_a\n\$result_b=$result_b\n";
#######printresultis:
$result_a=;
$result_b=;

三、数组的Perl函数返回值

有问题的代码：

#Functiondefinition.
subget_value()
{
my(@$var_a,@var_b);
@var_a=(,);
@var_b=(,);
return(@var_a,@var_b);
}
#########Mainscript
my(@result_a,@result_b);
(@result_a,@result_b)=get_value();
print"\@result_a=@result_a\n\@result_b=@result_b\n";
#######printresultis:
@result_a=,,,
@result_b=

#!!!在这里，我们原本希望得到的结果应该是：
@result_a=1,2
@result_b=30,40
但实际上却并不是这样，这里一点需要注意的是：Perl中返回值中的列表是被“铺平（flattened）的”，也就是说：
return(@var_a,@var_b);<====等价===>return($var_a[0],$var_a[1],$var_b[0],$var_b[1]);
所以这个时候，return将会把returnlist里面的值，和接受returnlist里面的变量一一对应起来，当遇到数组是表示接受所有值。所以，解决这个问题就需要使用引用，如：

#Function definition.
sub get_value()
{
my(@$var_a,@var_b);
@var_a=(,);
@var_b=(,);
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 resultis:
@result_a=,
@result_b=,