如何访问在 perl 模块中导入的变量?

西蒙尼

我希望能够做这样的事情:

use Foo::Bar $baz, qw/one two three/;

然后,在一个包内

package Foo::Bar;

# probably do something magic here

sub do_something {
     # access $baz and 'one', 'two' and 'three' 
}

我记得看到它在一个模块中完成并认为这是一件很酷的事情。现在想自己做,又找不到模块了。

我怎样才能做到这一点?

菲利普·罗森 - refp

为了将数据传递给模块,您需要编写自己的import子程序,如下例所示。


# Foo.pm
package Foo;

use Data::Dumper;

sub import {
    my $package = shift;
    my @data = @_;

    print STDERR Dumper \@data;
}

1;
# foo.pl
use Foo qw/hello world/;

$VAR1 = [
          'hello',
          'world'
        ];

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章