大佬教程收集整理的这篇文章主要介绍了perl – 在大脚本中用词汇方式导入有用的函数,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
use List::Util 'max';
在我的程序的顶部,我坚持使用该符号,污染我的整个命名空间,即使我只需要在一个子程序中.
所以我一直在考虑尝试不同的模式,而是:
use List::Util (); # a whole bunch of stuff later... sub blah { List::Util->import( 'max' ); $blah = max @foobar; ... }
但是,这有两个问题.首先,它不会在块结束时自动取消导入(drat.)我将不得不通过unmport撤消所有内容.
另一个问题是显然原型没有得到正确应用,所以我不得不说max(@foobar)而不是更漂亮的无括号版本.
是否有一种简单的方法来临时导入块的符号,这将自动使它们在块的末尾消失,哪些也可以正确处理原型?
use List::Util (); @y = qw(1 3 5 -9 4); sub max { # return maximum *absolute value* of list my $max = abs(shift); $max<abs($_) && ($max=$abs($_)) for @_; return $max; } sub max2 { local *max = *List::Util::max; return max(@_); } print "My max: ",max(@y),"\n"; # ==> 9 print "List::Util::max ",max2(@y),"\n"; # ==> 5
以上是大佬教程为你收集整理的perl – 在大脚本中用词汇方式导入有用的函数全部内容,希望文章能够帮你解决perl – 在大脚本中用词汇方式导入有用的函数所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。