perl - 如何调用带有预分配给某个值的变量的子程序？

Question

在 Perl 中，当使用带有自定义比较的 sort 函数时，变量 $a 和 $b 已经分配给当前要比较的一对元素，例如在:

@decreasing = sort { $b <=> $a } @list;

如何编写具有类似功能的其他子例程？例如，假设我想编写某种 process_and_store 函数，对列表中的每个项目执行一些特殊操作，然后将其存储在数据库中；并且变量 $item 已经分配给正在处理的当前项目。我想写例如这样的东西:

process_and_store { do_something_with($item); } @list;

而不是

process_and_store { my $item = shift; do_something_with($item); } @list;

我应该怎么做？

---

更新:为了完整性，虽然flesk's answer工作没有问题，为了“正确地”本地化我对 $item 变量所做的更改，我必须遵循 advice from Axeman .在 SomePackage.pm 中，我放置了如下内容:

package SomePackage;

use strict;

require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = qw(process_and_store);

our $item;

sub import { 
  my $import_caller = caller();
  {   no strict 'refs';
    *{ $import_caller . '::item' } = \*item;
  }
  # Now, cue Exporter!
  goto &{ Exporter->can( 'import' ) };
}

sub process_and_store (&@) {
  my $code = shift;
  for my $x (@_) {
    local *item = \$x;
    $code->();
    print "stored: $item\n"
  }
}

1;

然后我从 main.pl 调用它，像这样:

#!/usr/bin/perl -w

use strict;
use SomePackage;

process_and_store { print "seen: $item\n"; } (1, 2, 3);

并得到预期的结果:

seen: 1
stored: 1
seen: 2
stored: 2
seen: 3
stored: 3

Answer 1

在我的“关联数组”处理库中，我做了类似的事情。用户可以导出变量 $k 和 $v(键值)，这样他们就可以做这样的事情:

each_pair { "$k => $v" } some_source_list() 

这是我的做法:

1. 我在实现包中声明our ( $k, $v )。
2. 在 import 中，我允许包导出这些符号并在接收包:*{$import_caller.'::'.$name} =\*{ $name };

3. 在配对处理器中，我执行以下操作:

   local *::_ = \$_[0];
   local *k   = \$_[0];
   local *v   = \$_[1];
   @res = $block->( $_[0], $_[1] );
   

因此 $k 和 $v 是队列中内容的别名。如果情况并非如此，那么您可能会对以下内容感到满意: :

local ( $k, $v ) = splice( @_, 0, 2 );
local $_         = $k;

但是可修改的副本也允许我做这样的事情:

each_pair { substr( $k, 0, 1 ) eq '-' and $v++ } %some_hash;

---

更新:

您似乎忽略了第 2 步。您必须确保客户端包中的符号映射到您的符号。它可以很简单:

our $item;

sub import { 
    my $import_caller = caller();
    {   no strict 'refs';
        *{ $import_caller . '::item' } = \*item;
    }
    # Now, cue Exporter!
    goto &{ Exporter->can( 'import' ) };
}

然后当您本地化您自己的符号时，客户端包中的别名符号也会被本地化。

我可以看到它在没有 local 的情况下也能工作的主要方式是，如果您从同一个包中调用它。否则，$SomePackage::item 和 $ClientPackage::item 是两个截然不同的东西。