perl 创建 删除 递归目录

１递归创建目录
use   File::Path;
my   $path= '/home/developer/perlDir ';
eval{mkpath($path,0,0755)};
if($@)
{
      warn( "Make   path   [$path]   failed:\n$@ ");
}
创建完路径你再open   '/home/developer/perlDir/a.txt '文件

$@就是错误信息存贮的地方

eval{...};
if($@)
{
      ...
}
这种结构有些类似于异常捕获.避免程序终止.

２.递归删除目录
use File::Path;
rmtree($dir);