perl Exporter一些神奇写法
2016-05-29 14:45
302 查看
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]#
相关文章推荐
- 汇编学习(六)8086汇编拾遗 (5)
- linux shell数组
- UML类图
- 团队开发冲刺第二阶段5
- 1047. 编程团体赛(20)
- 计算机专业 面试经验 及 知识推荐
- Java_杂记_4
- JAVA 笔记(四) RTTI - 运行时类型检查
- SDE连接,创建数据集,数据导入以及数据导出
- 动态规划总结
- iOS AutoLayout阅读笔记1----->Hugging Priority & Compression Resistance Priority
- 第五章项目:QuickHit
- 微信分享官方第三方接入(图片及文字)
- 传感器系列之4.7地磁传感器
- Ubuntu 14.04 - devstack + openstack +ceph统一存储
- JQuery中的ID选择器
- shell 解析 json
- php笔记(8)——异常处理
- 实习入职第九天---android错误之MediaPlayer用法的Media Player called in state *
- C语言学习入们到精通之学习笔记(一)