Perl快速删除文件和目录

删除文件和空目录脚本 

1 #!/usr/bin/perl
2 
3 use File::Find;
4 
5 my $dir = '/path/to/directory';
6 find(sub { unlink $_ if -f $_ }, $dir);
7 find(sub { rmdir $_ if -d $_ }, $dir);

删除目录下的文件和非空目录脚本

1.

1 #!/usr/bin/perl
2 
3 use File::Path qw(rmtree);
4 rmtree '/tmp/test/deletedir',{verbose => 1,keep_root => 1};

2.

1 #!/usr/bin/perl
2 
3 use File::Path;
4 rmtree '/tmp/test/deletedir',{verbose => 1,keep_root => 1};

因为rmdir无法删除非空目录，所以要删除非空目录，可以采用File::Path模块的rmtree函数。

rmtree的语法：

rmtree($dir1, $dir2,..., \%opt)

opts可以是以下几种：

verbose => $bool # 是否显示删除信息，默认啥也不显示
safe => $bool # 删除时，跳过无法删除的对象。例如虚拟文件系统(VMS,如/proc)下有很多是无法删除的
keep_root => $bool # 设置为真值时，保留顶级目录，也就是说自删除目录内的文件和子目录，顶级目录自身不删除
result => \$res
error => \$err