我希望能够做这样的事情:
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'
}
我记得看到它在一个模块中完成并认为这是一件很酷的事情。现在想自己做,又找不到模块了。
我怎样才能做到这一点?
为了将数据传递给模块,您需要编写自己的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] 删除。
我来说两句