Perl：调度哈希值和共享变量

Question

我有一个模块，其中包含一组函数，这些函数被实现为带有辅助函数的调度哈希，因此：

my $functions = {
  'f1' => sub { 
      my %args = @_;
      ## process data ...
      return $answer; 
  },
[etc.]
};

sub do_function {
    my $fn = shift;
    return $functions->{$fn}(@_);
}

这被一些处理制表符分隔数据的脚本使用；正在检查的列由适当的子程序转换。当处理列中的值时，我将数据的哈希值传递给子函数，它会生成一个标量，即该列的新值。

目前，子程序是这样调用的：

my $new_value = do_function( 'f1', data => $data, errs => $errs );

并且参数中的变量都声明为“my” - my $data、my $errs 等。是否可以更新传递到子程序的参数中的其他值而无需归还它们？即不必这样做：

 ... in $functions->{f1}:
      my %args = @_;
      ## process data ...
      ## alter $args{errs}
      $args{errs}->{type_one_error}++; 
      ## ...
      return { answer => $answer, errs => $args{errs} }; 
 ...

 ## call the function, get the response, update the errs
 my $return_data = do_function( 'f1', data => $data, errs => $errs );
 my $new_value = $return_data->{answer};
 $errs = $return_data->{errs}; ## this has been altered by sub 'f1'

我可以这样做：

  my $new_value = do_function( 'f1', data => $data, errs => $errs );
  ## no need to update $errs, it has been magically updated already!

Answer 1

您可以传递对值的引用并在子例程内更新它。

例如：

sub update {
    my ($ref_to_value) = @_;
    $ref_to_value = "New message";
    return "Ok";
}

my $message = "Old message";

my $retval = update(\$message);

print "Return value: '$retval'\nMessage: '$message'\n";

据我从您的代码片段中看到， $errs 已经引用了哈希。
所以，实际上，您所要做的就是 - 只需注释掉行 $errs = $return_data->{errs}; 并尝试

如果我得到了正确的代码，$errs 已更新。然后您应该将返回值更改为 $answer 并执行以下操作：

my $new_value = do_function( 'f1', data => $data, errs => $errs );

Answer 2

• 首先将 do_function 的定义更改为：

  sub do_function {
      我的 $fn = 转变；
      转到 &{$functions->{$fn}}
  }
  

  这是分派到新子例程的正确方法。这种形式的 goto 用新的 coderef 替换当前正在执行的子例程，不变地传递 @_ ，并从调用堆栈中删除 do_function （因此 <代码>调用者工作正常）。您可能还需要在其中进行一些错误检查，以确保 $fn 是一个有效的名称。

• 在你的函数中，你可以直接修改@_的单元格，并且不需要通过引用传递任何内容（因为perl已经为你做到了这一点）。

  sub add1 {$_[0]++}
  我的 $x = 1;
  添加1 $x；
  说$x； #2
  

  支持key => value 参数而不通过引用传递，你可以这样写：

  在 $functions->{f1} 中：
    我的%args；
    尽管 （@_） {
        $args{$_} = /错误/？ \shift : 换档换档
    }
    ## 处理数据...
    ## 更改 ${$args{errs}}
    ## ...
  

• HOWEVER 因为在您的情况下 $errs 是一个哈希引用，您不需要需要做任何额外的工作。所有引用都会自动通过引用传递。在现有代码中，您所要做的就是修改 $args{errs} 的键（正如您现在所做的那样），它将修改对该哈希的每个引用。

  如果您想要函数本地哈希，则需要复制哈希*：

  我的%errs = %{$args{errs}};
  

  其中 %errs 是私有的，完成后，您可以使用 $ 将您想要公开的任何值推送到 $args{errs} 中args{errs}{...} = ...;。但请确保不要将 $args{errs} 替换为副本（如 $args{errs} = \%errs），因为这会中断与调用者的连接错误哈希。如果您想复制所有新值，可以使用以下之一：

  %{$args{errs}} = %errs; # 替换所有键
  @{$args{errs}}{keys %errs} = 值 %errs; # 替换%errs中的键
  ...和 ​​$args{errs}{$_} = $errs{$_} 对于键 %errs; # 条件替换
  

  *或本地化部分/全部键