perl Exporter一些神奇写法

黄小二哥

于 2016-05-29 14:45:00 发布

阅读量201

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zhaoyangjian724/p/6199961.html

本文介绍了如何在Perl中创建并使用自定义模块Fred.pm，该模块导出了两个符号flintstone和$var，通过a1.pl脚本展示了如何从模块中引入并使用这些符号。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

use base qw(Exporter);
@JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json decode_json);


[root@wx03 5]# cat Fred.pm 
package Fred;
use Exporter 'import';
@EXPORT = qw(flintstone $var);

sub flintstone{

return 99;
};
our $var="SADA1311";
1;
[root@wx03 5]# cat a1.pl 
use Fred  qw/flintstone $var/;
print $var;
print "\n";

print flintstone;

[root@wx03 5]# perl a1.pl 
SADA1311
99[root@wx03 5]# 


还可以这么玩?

[root@wx03 5]# cat a1.pl 
use Fred  qw/flintstone $var/;
print $var;
print "\n";

print flintstone;

[root@wx03 5]# cat Fred.pm 
package Fred;
use Exporter 'import';
@Fred::EXPORT = qw(flintstone $var);

sub flintstone{

return 99;
};
our $var="SADA1311";
1;
[root@wx03 5]# perl a1.pl 
SADA1311
99[root@wx03 5]#

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6199961.html