perl常用操作

fateame

　　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))[3,4,5];
　　$year += 1900;
　　$mon++;
　　$time=sprintf "%4d-%02d-%2d",$year,$mon,$day;
　　print $time."\n";