Perl:在调用者上下文中定义变量

Question

我创建了这个简单的子例程。

use List::Util qw(pairmap);

sub pairGroupBy(&@) {
  my($irCode, @iaItems) = @_;

  my %laResult = ();
  pairmap {
    my $lsKey = $irCode->();
    if (!defined($lsKey)) {
      die "Trying to pairGroup by nonexisting key '$lsKey'";
    }
    push @{$laResult{$lsKey}}, $a => $b;
  } @iaItems;

  return %laResult;
}

它工作得很好，直到从定义它的同一文件中使用子例程为止。当我将其移动到某个包时，变量 $a 和 $b 在 $irCode->() 回调中变得未定义。

我从List::Util source code学到了这段代码可以解决问题:

my $caller = caller;
local(*{$caller."::a"}) = \my $a;
local(*{$caller."::b"}) = \my $b;

所以我这样修改了我的子例程:

use List::Util qw(pairmap);

sub pairGroupBy(&@) {
  my($irCode, @iaItems) = @_;

  my $caller = caller;

  my %laResult = ();
  pairmap {

    no strict 'refs';
    local(*{$caller."::a"}) = \$a; # <---- the line 96
    local(*{$caller."::b"}) = \$b;

    my $lsKey = $irCode->();
    if (!defined($lsKey)) {
      die "Trying to pairGroup by nonexisting key '$lsKey'";
    }
    push @{$laResult{$lsKey}}, $a => $b;
  } @iaItems;

  return %laResult;
}

但我需要使用 no strict 'refs'; 行(List::Util source code 不使用它)。否则会出现错误消息:

Can't use string ("main::a") as a symbol ref while "strict refs" in use at /home/.../bin/SatFunc.pm line 96.

我的问题是:是否有更好的方法如何在调用者的上下文中定义 $a 和 $b 变量，而不使用 no strict 'refs'; ？

我希望我的函数的使用方式与 pairmap 相同, pairgrep等等

编辑:@simbabque 要求提供一个示例，说明如何使用该函数。这是一个例子:

my %laHoH = (
  aa => {
    color => 'yellow',
    item => 'sun',
    active => 1
  },
  bb => {
    color => 'blue',
    item => 'sky',
    active => 1
  },
  cc => {
    color => 'green',
    item => 'grass',
    active => 0
  },
  dd => {
    color => 'blue',
    item => 'watter',
    active => 1
  }
);


my %laGrouped = pairGroupBy {
  $b->{color}
} pairgrep {
  $b->{active}
} %laHoH;

该函数然后返回以下结构:

{
  'yellow' => [
                'aa',
                {
                  'color' => 'yellow',
                  'item' => 'sun',
                  'active' => 1
                }
              ],
  'blue' => [
              'dd',
              {
                'active' => 1,
                'item' => 'watter',
                'color' => 'blue'
              },
              'bb',
              {
                'color' => 'blue',
                'item' => 'sky',
                'active' => 1
              }
            ]
};

Answer 1

我不确定您为什么会遇到这个问题，但我怀疑您想得太多了。使用pairmap在这样的空上下文中似乎是个坏主意。

不能将数组转换为哈希值，然后对其进行迭代吗？

my %iaItemsHash = @iaItams;

while (my ($k, $v) = each %iaItemsHash) {
  my $lsKey = $irCode->();
  if (!defined($lsKey)) {
    die "Trying to pairGroup by nonexisting key '$lsKey'";
  }
  push @{$laResult{$lsKey}}, $k => $v;
}

更新:根据您的评论，我重新阅读了您原来的问题，发现您正在谈论使用 $irCode->() 访问变量。打电话。

我的解决方案的问题是 $k和$v是词法变量，因此在其词法范围之外不可用(这通常被视为一个功能!)解决方案是采用良好的编程实践并将值作为参数发送到子例程中。