Perl return()用法及代码示例

Perl中的return()函数在子例程，块或do函数的末尾返回Value。根据所选上下文，返回值可以是标量，数组或哈希。

用法： return Value

返回值：
标量上下文中的列表

注意：如果没有值传递给return函数，则它将在列表上下文中返回一个空列表，在标量上下文中返回undef，而在void上下文中则不返回任何内容。

示例1:

#!/usr/bin/perl -w 
  
# Subroutine for Multiplication 
sub Mul($$)  
{ 
    my($a, $b ) = @_;   
    my $c = $a * $b; 
      
    # Return Value     
    return($a, $b, $c); 
} 
  
# Calling in Scalar context 
$retval = Mul(25, 10); 
print ("Return value is $retval\n" ); 
  
# Calling in list context 
@retval = Mul(25, 10); 
print ("Return value is @retval\n" );

输出：

Return value is 250
Return value is 25 10 250

示例2:

#!/usr/bin/perl -w 
  
# Subroutine for Subtraction 
sub Sub($$)  
{ 
    my($a, $b ) = @_;  
      
    my $c = $a - $b; 
      
    # Return Value     
    return($a, $b, $c); 
} 
  
# Calling in Scalar context 
$retval = Sub(25, 10); 
print ("Return value is $retval\n" ); 
  
# Calling in list context 
@retval = Sub(25, 10); 
print ("Return value is @retval\n" );

输出：

Return value is 15
Return value is 25 10 15

相关用法

注：本文由纯净天空筛选整理自Code_Mech大神的英文原创作品 Perl | return() Function。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。