我想在我的一个二进制函数中使用$a和$b变量,就像在sort {$a< => $b}(1,2,3),但我不知道为什么代码像
#!/usr/bin/env perl
use strict;
use warnings;
Foo::Bar(sub { $a + $b });
package Foo;
sub Bar {
my ($function) = @_;
for my $i (1,3) {
local ($a,$b) = ($i,$i);
print $function->() . "\n";
}
}
不行而
#!/usr/bin/env perl
use strict;
use warnings;
Foo::Bar(sub { $_ });
package Foo;
sub Bar {
my ($function) = @_;
for my $i (1,3) {
local $_ = $i;
print $function->() . "\n";
}
}
工作正常.
我究竟做错了什么？
解决方法
$a和$b是特殊的包变量.您正在从主包中调用Foo :: Bar,因此您需要设置$main :: a和$main :: b才能使其正常工作.您可以使用
caller获取呼叫包的名称.这应该工作：
#!/usr/bin/env perl
use strict;
use warnings;
Foo::Bar(sub { $a + $b });
package Foo;
sub Bar {
my ($function) = @_;
my $pkg = caller;
for my $i (1,3) {
no strict 'refs';
local *{ $pkg . '::a' } = \$i;
local *{ $pkg . '::b' } = \$i;
print $function->() . "\n";
}
}