Perl create\remove folder

Perl 提供了很多模块

查询模块是否安装使用 perl -e 'use Cwd'

今天工作中要创建和删除文件夹 网上介绍用File::Path

但是当需要创建多级文件夹，删除嵌套文件和文件夹时，

使用这些函数就有点杯水车薪了。

使用File::Path模块可以完美的解决这种问题

#! /usr/bin/perl

use strict;

use warnings;

use File::Path qw(make_path remove_tree);

$path = "~/z";

$path1 = "~/z/y";

make_path("$path1",{ ? ? ? ? ? ? ? #创建~/z/y两级目录

? ? verbose => 1,? ? ? ? ? ? ? ? ? ? ? ? ? #成功后返回创建目录名

? ? mode => 0755,

});

remove_tree("$path",{

? ? verbose => 1, ? ? ? #成功后返回删除目录名

? ? keep_root => 1,? ? ? ? ? ? ? ? ? ? ? #保存z目录

? ??error => my $err #保存失败信息

} );

if (@$err) { ? ? for my $diag (@$err) { ? ? ? ? my ($file,$message) = %$diag; ? ? ? ? if ($file eq '') { ? ? ? ? ? ? print "general error: $messagen"; ? ? ? ? }?else { ? ? ? ? ? ? print "problem unlinking $file: $messagen"; ? ? ? ? } ? ? } }?else { ? ? print "No error encounteredn"; }