Perl变量范围问题

package Foo;

use Strict;
use warnings;

sub sort {
    my ($self,$sub) = @_;

    my ($pkg) = caller;
    my @x = qw(1 6 39 2 5);
    print "@x\n";
    {
        no Strict 'refs';
        @x = sort {
            local (${$pkg.'::a'},${$pkg.'::b'}) = ($a,$b);
            $sub->();
        } @x;
    }
    print "@x\n";

    return;
}


package main;

use Strict;
use warnings;

my $foo = {};
bless $foo,'Foo';

$foo->sort(sub { $a <=> $b });
# 1 6 39 2 5
# 1 2 5 6 39

据推测,你会对一些实际上属于对象的数据进行排序.

你需要caller魔法,所以你在调用者的包中本地化$a和$b,这是Perl寻找它们的地方.它创建的全局变量只有在调用该子时才存在.

请注意,您将获得一个“仅使用一次”的警告名称;不管怎么说,我确信你可以通过一些箍来避免这种情况.