Perl 使用File::Path管理多级目录

1. File::Path 介绍

make_path 用于创建目录，如果目录之前不存在的话。这个函数的特点是可以创建多级目录，这一点上类似于Unix命令 mkdir -p .

对等的 remove_tree 用于删除目录,无论目录下是否有内容，类似于Unix命令 rm -r 或者Windows命令 del /s 。

如下是对上边2个函数的封装，用于客户调用

mkpath( $dir )
mkpath( $dir, $verbose, $mode )
mkpath( [$dir1, $dir2,...], $verbose, $mode )
mkpath( $dir1, $dir2,..., \%opt )
rmtree( $dir )
rmtree( $dir, $verbose, $safe )
rmtree( [$dir1, $dir2,...], $verbose, $safe )
rmtree( $dir1, $dir2,..., \%opt )

2 例子

#!/usr/bin/perl -w
use strict;
use File::Path;
my $FilePath = "/tmp/myfolder";


eval {mkpath($FilePath)};
if($@)
{
      warn( "Make path [$FilePath] failed:\n$@ ");
}

更多信息可参考 perldoc File::Path