perl
钱吉
action is powerful than speaking
展开
-
利用sort对数组进行自定义排序
关于sort的常规用法这篇博文写的很具体,可以参考: http://www.cnblogs.com/xinghua/archive/2007/02/07/643867.html sort函数的三种形式: sort LISTsort BLOCK LISTsort SUBNAME LIST 本文主要讲下自定义函数对数组进行排序,即如何实现SUBNAME函数。看下面的列子就明白了: 有一个文本原创 2014-07-18 21:05:47 · 1270 阅读 · 0 评论 -
多进程遍历目录并查找文件
有时候需要在一个深层次的目录下面查找某个类型的文件,这里利用遍历递归查找目录,并使用多进程操作提高效率。 如果现在只需要在一个目录下查找,脚本getfile_single.pl为: use strict; my @ARGV==2||die"usage:*.pl dir rec\n"; my $dir=$ARGV[0];##input directory my $logfile=$AR原创 2014-07-18 21:05:43 · 837 阅读 · 0 评论 -
闭包
举个例子 perl: use strict; my $add_sub = add_function_generator(); my $sum = &$add_sub(4,5); print $sum; sub add_function_generator{ return sub{$_[0]+$_[1]}; }原创 2014-07-18 22:57:18 · 510 阅读 · 0 评论