在大脚本中词法导入有用的函数

Question

有时我需要一个有用的实用函数，例如在执行大量操作的大型程序中的 List::Util::max 。因此，如果我

use List::Util 'max';

在程序的顶部这样做，我就会被该符号困住，污染我的整个命名空间，即使我只在一个子例程中需要它。

所以我一直在考虑尝试一种不同的模式：

use List::Util ();

# a whole bunch of stuff later...
sub blah { 
    List::Util->import( 'max' );
    $blah = max @foobar;
    ...
}

不过，这有两个问题。首先，它不会在块末尾自动取消导入（drat）。我必须使用 unimport 撤消所有内容。

另一个问题是显然原型没有正确应用，所以我不得不说 max( @foobar ) 而不是更漂亮的无括号版本。

有没有一种简单的方法可以临时导入块的符号，这会自动使它们在块的末尾消失，并且还能正确处理原型？

Answer 1

只要这样做，它就更好更干净：

package Foo;
use strict; use warnings;
use List::Util 'max';
use namespace::autoclean;

# your method definitions here...

namespace::autoclean 将“unimport” " 包编译周期完成后的符号。在您的方法中对它的调用仍然有效，但您没有命名空间污染（*Foo::max 符号被删除）并调用 $obj->max()将会失败。

或者，您可能想看看 Lexical::Import （我知道没有任何关于它的内容；irc 小鸟提到了它）。

Answer 2

如果您只在一个子例程中使用 max，我根本不会将其导入到命名空间中。我的解决方案是

use List::Util;
sub blah {
    print List::Util::max(@list);
}

Answer 3

您可以本地化符号表条目：

use List::Util ();

@y = qw(1 3 5 -9 4);

sub max { # return maximum *absolute value* of list
    my $max = abs(shift);
    $max<abs($_) && ($max=$abs($_))  for @_;
    return $max;
}

sub max2 {
    local *max = *List::Util::max;
    return max(@_);
}

print "My max:         ", max(@y), "\n";    # ==> 9
print "List::Util::max ", max2(@y), "\n";   # ==> 5

Answer 4

perlfunc 意味着没有 MODULE应该做你想做的事：

sub blah {
    use List::Util qw(max);
    say max @foobar;
    no List::Util;
}

但这不起作用——至少对 List::Util 不起作用。我相信它需要定义一个 unimport 方法。即使如此，我也不确定您的模块中是否可以有一个裸露的 max 调用不同的定义。