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;