perl常用操作
1、文件操作1-1、递归创建目录
格式：
use File::Path
mkpath(dirname)
例子：
mkpath('d1/d2/d3');
注：dirname中的文件分隔符须是'/'，而不能是 '\'
1-2、递归复制目录（包含所有目录下的所有文件）
格式：
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove)
dircopy(oriDir,newDir)
例子：
dircopy(''/a/b,'/a1/b1');
注：dirname中的文件分隔符须是'/'，而不能是 '\'
1-3、递归删除目录
格式：
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
pathrmdir dirname
例子：
pathrmdir 'D:/dirname';
2、日期操作
2-1、获取当前时间
格式：
# 0 1 2 3 4 5 6 7 8 9 10 11
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
例子：
($day,$mon,$year) =(localtime(time));
$year += 1900;
$mon++;
$time=sprintf "%4d-%02d-%2d",$year,$mon,$day;
print $time."\n";
页:
[1]