perl Exporter一些神奇写法

来源:互联网 发布:恢复mac上icloud数据 编辑:程序博客网 时间:2024/06/06 03:16
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 SADA131199[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 SADA131199[root@wx03 5]# 

0 0