在
Mastering Perl年的其中一个章节中,brian d foy从
List::Util开始显示这个代码段：
- sub reduce(&@) {
- my $code = shift;
- no strict "refs";
- return shift unless @_ > 1;
- use vars qw($a $b);
- my $caller = caller;
- local(*{$caller . "::a"}) = \my $a;
- local(*{$caller . "::b"}) = \my $b;
- $a = shift;
- foreach(@_) {
- $b = $_;
- $a = &{$code}();
- }
- $a;
- }
解决方法
这是因为List :: Util在内部使用reduce()函数.
在使用vars的时候,使用该函数时会给出以下警告：
- Name "List::MyUtil::a" used only once: possible typo at a.pl line 35.
- Name "List::MyUtil::b" used only once: possible typo at a.pl line 35.
您可以通过运行以下代码为自己看到这一点：
- use strict;
- use warnings;
- package List::MyUtil;
- sub reduce (&@) {
- # INSERT THE TEXT FROM SUBROUTINE HERE - deleted to save space in the answer
- }
- sub x {
- return reduce(sub {$a+$b},1,2,3);
- }
- package main;
- my $res = List::MyUtil::x();
- print "$res\n";
然后使用vars禁用再次运行它.