摘要: MyConfig.pmpackage MyConfig;use base qw(Exporter);our @ISA = qw(Exporter);our @EXPORT = qw(%foo $bar); our %foo = ( 0, "A", 1, "B");our @bar = (1, 2, 3);Test.pluse MyConfig;print %foo;print @bar; 阅读全文
posted @ 2014-03-24 18:29 jimbo 阅读(806) 评论(0) 推荐(0) 编辑