如何在Perl中通过多个子例程传递变量？

Question

我在子例程中有一个变量currentUser。 它执行一个子例程，但不执行另一个子例程。 如何在保留值的同时通过多个子例程传递变量？

sub login {
    &app_header;
    print <<EOF;
<form name="macform" method="POST" enctype="application/x-www-form-urlencoded"       action="$fullurl">
    ...stuff
    EOF  
}

sub html_menu {
    $me = $currentUser;
    print $me;
    print <<EOF;
    <form name="menuform" method="POST" enctype="application/x-www-form-urlencoded"     action="$fullurl">
    ..stuff
    EOF
    &app_list_button;
    print "<br>";
    &app_search_button;
    print "<br>";
    &app_edit_button;
    print "</div>";
}

当我尝试执行相同的操作时，html_form子项与currentUser在html_form之后的新子项中进行操作），变量不会显示为用户在登录期间输入的内容。

Answer 1

sub first {
    my $currentUser = shift;
    second($currentUser);
}

sub second {
    my $currentUser = shift;
    third($currentUser);
}

...等等。

通过@_变量将变量作为参数传递。 您不应该尝试使用全局变量，这不是一个好方法。 您可以这样做：

my ($arg1, $arg2, @rest) = @_;

或通过使用shift ， pop和其他操作数组的方法，如我上面使用过的shift 。

如果您还没有这样做，我强烈建议您使用

use strict;
use warnings;

这将帮助您解决许多简单的问题。

Answer 2

最安全的方法是将变量用作参数：

sub r1 {
    my $arg = shift;
    r2($arg);
}

sub r2 {
    my $arg = shift;
    print "$arg in r2\n";
}

Answer 3

当我尝试执行相同的操作时，html_form子项与currentUser在html_form之后的新子项中进行操作），变量不会显示为用户在登录期间输入的内容。

首先，这是一个相当复杂的例子。 您应该尝试将其分解。 为了补充到目前为止其他人所说的内容，我将告诉您子例程名称上的&前缀，而无需添加()改变含义。 您可以在示例中使用它，但不确定是否知道它的作用。 所有这些都有稍微不同的含义。

• foo()这只是调用不带参数的子foo 。
• &foo这会调用foo隐式传入@_ 。 重要说明，如果foo通过引用修改@_ ，那么@_也会被调用方更改。
• &foo()这只是perl4的遗物。 这将使用显式subref标记调用foo 。 在所有情况下均不建议使用此方法。

在问题的范围之外，原型和&标记也存在细微差异

有关更多信息，请参见perldoc -q "calling a function"和perldoc perlsub