发布时间：2014-11-20 12:39:58
open (FH,">>$fpath") || die "Can't open file $fpath: $!\n";#### 选择默认文件句柄，刷新;select (FH);$|=1;#### 选择系统文件句柄，刷新;select(STDOUT);$|=1;......【阅读全文】
发布时间：2013-09-27 20:05:03
解码： $de_key =~ 's/%(..)/pack("c", hex($1))/eg';编码：$en_url =~ s/(\W)/sprintf("%%%02X",unpack("C",$1))/eg;......【阅读全文】
发布时间：2013-06-09 17:37:04
1.测试语法perl -wct test.pl2.head online.txt 2013-06-09 00:35:00,10402,8182013-06-09 00:40:00,10402,8072013-06-09 00:45:00,10402,774 perl -F',' -ane 'print "$F[0]:$F[2]"; $s{$F[0]}+=$F[2]; END{ pr.........【阅读全文】
发布时间：2013-05-24 17:29:58
#### create myself pid filemy $pid = $$;my $myname=$0;print "myname: $myname\n";my $pidFile = "/export/web/tmp/handle_report.pid";#### check other myself,if exists then exit else write myself pid to pidfileif ( -s "$pidFile") { open PIDF, $pidFile || die "Can't open fil.........【阅读全文】
