如何在Perl子程序中使用$a和$b

发布时间：2020-12-15 22:04:14 所属栏目：大数据来源：网络整理

导读：我想在我的一个二进制函数中使用$a和$b变量,就像在sort {$a = $b}(1,2,3),但我不知道为什么代码像 #!/usr/bin/env perluse strict;use warnings;Foo::Bar(sub { $a + $b });package Foo;sub Bar { my ($function) = @_; for my $i (1,3) { local ($a,$b) = (

我想在我的一个二进制函数中使用$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";
    }
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!