perl - 将散列传递给子例程

Question

我正在为自己开发一个项目，但在将散列传递给子例程时遇到了问题。实际上有几个子例程，但我试图将它精简到最低限度。我意识到 %mdc 是一个全局散列，所以我不必将它传递给我拥有的所有子例程，但出于习惯我更喜欢这样。虽然下面的代码片段确实有效，但感觉它可以更简洁。

无论如何，让我认为必须有更好的方法的部分是这些行:

%mdc_def = mysub(\%mdc);
%mdc = %$mdc_def;

感觉...对我来说很笨拙，但我没有找到一种方法让这两行成为一行...类似(即使语法不好):

%mdc = %mysub(\%mdc);

然后，如果我应该有一个 mysub2，它也需要该哈希，我也必须在该子例程中执行相同的两行洗牌。只是感觉很乱。

这是我正在处理的片段:

use strict;
use warnings;

my %mdc = ();
my $mdc_def;

$mdc{abc} = 123;
$mdc{cde} = 234;

foreach (sort keys (%mdc)) { print "before $_ = $mdc{$_}\n"; }
$mdc_def = mysub(\%mdc);
%mdc = %$mdc_def;
foreach (sort keys (%mdc)) { print " after $_ = $mdc{$_}\n"; }

sub mysub {
  my ($mdc_def) = @_;
  my %m = %$mdc_def;

  $m{def} = 345;
  $m{efg} = 456; 

  return \%m;
}

提前致谢。

Answer 1

您可以使用以下内容:

sub mysub {
   my ($mdc_def) = @_;
   my %m = %$mdc_def;

   $m{def} = 345;
   $m{efg} = 456; 

   return \%m;
}

my %mdc = ( a=>1, b=>2 );

%mdc = %{ mysub(\%mdc) };

但这并不是哈希和其中所有标量的一个两个副本。全局 var 没有理由是散列而不是标量，这样可以避免复制实例之一。

sub mysub {
   my ($mdc_def) = @_;
   my %m = %$mdc_def;

   $m{def} = 345;
   $m{efg} = 456; 

   return \%m;
}

my $mdc = { a=>1, b=>2 };

$mdc = mysub(\%mdc);

剩下一个复制实例。如果您不希望 mysub 就地修改哈希，则需要该实例，因此上面的代码很好。

以下是就地修改散列的版本，避免了复制的第二个实例(并允许我们将全局变量保留为散列)。

sub mysub_inplace {
   my ($mdc_def) = @_;
   $mdc_def->{def} = 345;
   $mdc_def->{efg} = 456; 
}

my %mdc = ( a=>1, b=>2 );

mysub_inplace(\%mdc);