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))[3,4,5];

$year += 1900;

$mon++;

$time=sprintf "%4d-%02d-%2d",$year,$mon,$day;

print $time."\n";