Perl：將作爲參數傳遞給變量的變量修改爲子例程

Question

我需要修改例程中的變量，以便在離開例程後保留更改。這裏有一個例子：

$text = "hello"; 
&convert_to_uppercase($text); 
print $text; 

我想在屏幕上看到「你好」，而不是「你好」。

的常規是：

sub convert_to_uppercase($text){ 
    <something like $text = uc($text);> 
} 

我知道如何做到這一點在PHP，但似乎未更改參數的方法相同。而且，我一直在尋找，我找不到具體的答案。

我會很感激任何幫助。謝謝！

Answer 1

你真的調用Perl子程序時不應該使用＆符號&。僅在將代碼視爲數據項時纔有必要，例如在參考時，如\&convert_to_uppercase。在Perl 5的版本4中，在調用中使用它並不是必需的，它會執行一些你可能不想要的東西。

子程序修改它們的參數是不常見的，但@_的元素是實際參數的別名，因此您可以通過修改該數組來做到這一點。

如果你寫你的子程序這樣

sub convert_to_uppercase { 
    $_[0] = uc $_[0]; 
} 

然後它會做什麼你問。但通常最好是返回修改後的值，以便決定是否覆蓋原始值可以由調用代碼進行。舉例來說，如果我有

sub upper_case { 
    uc shift; 
} 

那麼它可以被稱爲要麼作爲

my $text = "hello"; 
$text = upper_case($text); 
print $text; 

它確實如你需要，並修改$text;或作爲

my $text = "hello"; 
print upper_case($text); 

其中$text保持不變，但返回更改的值。

Answer 2

傳遞一個參考和修改子程序內的原始變量將這樣來完成：

$text = 'hello'; 
convert_to_uppercase(\$text); #notice the \ before $text 
print $text; 

sub convert_to_uppercase {  #perl doesn't specify arguments here 

    ### arguments will be in @_, so @_ is now a list like ('hello') 
    my $ref = shift;    #$ref is NOT 'hello'. it's '$text' 

    ### add some output so you can see what's going on: 
    print 'Variable $ref is: ', $ref, " \n"; #will print some hex number like SCALAR(0xad1d2) 
    print 'Variable ${$ref} is: ', ${$ref}, " \n"; #will print 'hello' 

    # Now do what this function is supposed to do: 
    ${$ref} = uc ${$ref}; #it's modifying the original variable, not a copy of it 
} 

另一種方法是給子程序外部創建的子程序內的返回值並修改變量：

$text = 'hello'; 
$text = convert_to_uppercase($text); #there's no \ this time 
print $text; 

sub convert_to_uppercase { 
    # @_ contains 'hello' 
    my $input = shift; #$input is 'hello' 
    return uc $input; #returns 'HELLO' 
} 

但是convert_to_uppercase例程似乎是多餘的，因爲這就是uc所做的。跳過這一切，只是這樣做：

$text = 'hello'; 
$text = uc $text;