Perl script 扫描指定文件夹replace string
# by online.cxfan@gmail.com($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);$dstDIR_ext = "\_$mon$mday\_$hour$min$sec";#print "dstDIR_ext:$dstDIR_ext\n";my $srcDIR = $ARGV[0];my
原创
2014-06-29 17:16:07 ·
422 阅读 ·
0 评论