2010-08-04
perl模块_List::Util
1加2加3加4 … 加到100,试了一下还是perl最快 需要用到perl的List::Util模块. [root@centos perl]# more plus.pl #!/usr/bi...
1加2加3加4 … 加到100,试了一下还是perl最快 需要用到perl的List::Util模块. [root@centos perl]# more plus.pl #!/usr/bi...
学习perl的reverse,sort,scalar,记录一下。 [root@OTRS perl]# more reverse_sort_scalar.pl #!/usr/bin/perl -w us...
perl的pop跟push操作数组的最右边,shift跟unshift操作数组的最左边 学习记录一下 #!/usr/bin/perl -w use strict; print ‘@a @b @c @d...
由于工作上的需要,要将IP段计算成IP,perl的Net::IP刚好用上. #!/usr/bin/perl -w use strict; use Net::IP; my $ip = new Net::...
近期评论