perl 备忘

包的子函数的参数 package Way：：Hello sub new{ getClass(); #不会得到包名 Way::Hello->getClass(); #返回包名 } sub getClass{ my($class) = @_; return $class } 循环  哈希的两种方法 foreach $a (%hash){

>>阅读原文<<