摘要： 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; 阅读全文