perl return

perl return函数例子，return函数实例代码 - 返回EXPR的子程序，块结束时，或者函数。

语法

return EXPR return

定义和用法

返回EXPR的子程序，块结束时，或者函数。EXPR可以是一个标量，数组或哈希值; 在执行时，将选择范围内。 如果没有EXPR，则返回一个空列表，在列表上下文中，在标量上下文中的是undef在上下文中。

返回值

• 在标量上下文返回：列表，这可以被解释为标量，列表或无效的情况下，

例子

试试下面的例子：

#!/usr/bin/perl -w
#by www.gitbook.net

$retval = Sum(5,10);
print ("Return value is $retval\n" );

@retval = Sum(5,10);
print ("Return value is @retval\n" );

sub Sum($$){
   my($a, $b ) = @_; 

   my $c = $a + $b;
   
   return($a, $b, $c);
}

这将产生以下结果：

Return value is 15
Return value is 5 10 15