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";

?

?

?

?