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。非經特殊聲明，原始代碼版權歸原作者所有，本譯文未經允許或授權，請勿轉載或複製。