Perl reset()用法及代碼示例

Perl中的reset()函數會重置(清除)所有程序包變量，這些程序包變量以傳遞給它的值指定的字母範圍開頭。通常，它僅在continue塊內或循環結束時使用。

注意：reset()函數的使用僅限於未使用my()函數定義的變量。

用法： reset(letter_range)

參數：
letter_range：以一個公共字符或一組字符開頭的一係列字母

返回值：
1，並重置給定範圍內的所有變量

示例1:

#!/usr/bin/perl -w 
  
$var1 = 20; 
$var2 = 15; 
  
# Values before reset() function call 
print "var1 value = $var1, ",  
      "var2 value = $var2\n"; 
  
# Now reset all variables whose 
# name starts with 'v' 
reset('v'); 
  
# Values after reset() function call 
print "var1 value = $var1, ",  
      "var2 value = $var2\n";

輸出：

var1 value = 20, var2 value = 15
var1 value = , var2 value =

示例2:

#!/usr/bin/perl -w 
  
$variable1 = 10; 
$variable2 = 30; 
  
# defining private variable using my() 
my $variable3 = 40; 
  
# Values before reset() function call 
print "variable1 value = $variable1, ",  
      " variable2 value = $variable2\n"; 
print "variable3 value = $variable3\n"; 
  
# Now reset all variables whose  
# name starts with 'v' 
reset('v'); 
  
# Values after reset() function call 
print "variable1 value = $variable1, ", 
      " variable2 value = $variable2, \n"; 
print "variable3 value = $variable3";

輸出：

variable1 value = 10,  variable2 value = 30
variable3 value = 40
variable1 value = ,  variable2 value = , 
variable3 value = 40

在示例2給出的代碼中，變量3是使用my()函數定義的，因此，其值對reset()函數沒有影響，而其他變量的值將被重置。

相關用法

注：本文由純淨天空篩選整理自Code_Mech大神的英文原創作品 Perl | reset() Function。非經特殊聲明，原始代碼版權歸原作者所有，本譯文未經允許或授權，請勿轉載或複製。