Perl快速删除文件和目录

删除文件和空目录脚本 

#!/usr/bin/perl

use File::Find;

my $dir = '/path/to/directory';
find(sub { unlink $_ if -f $_ }, $dir);
find(sub { rmdir $_ if -d $_ }, $dir);

 

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

rmtree的语法：

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

opts可以是以下几种：

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

 

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

1.

#!/usr/bin/perl

use File::Path qw(rmtree);
rmtree '/tmp/test/deletedir',{verbose => 1,keep_root => 1};

 

2.

#!/usr/bin/perl

use File::Path;
rmtree '/tmp/test/deletedir',{verbose => 1,keep_root => 1};

 

3.另一种保留目录自身的删除方式是遍历顶级目录，然后迭代删除遍历出来的每个子项：

#!/usr/bin/perl

use File::Path;
foreach (</tmp/test/deletedir/*>){
    -d $_ ? rmtree $_ : unlink $_;
}