Perl create\remove folder

概述Perl 提供了很多模块 查询模块是否安装使用 perl -e 'use Cwd' 今天工作中要创建和删除文件夹 网上介绍用File::Path 创建文件夹 mkdir 删除文件 unlink 删除文件夹 rmdir 这些函数可以完成一般情况的 *** 作， 但是当需要创建多级文件夹，删除嵌套文件和文件夹时， 使用这些函数就有点杯水车薪了。 使用File::Path模块可以完美的解决这种问题 #! /us

Perl 提供了很多模块

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

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

创建文件夹	mkdir
删除文件	unlink
删除文件夹	rmdir

这些函数可以完成一般情况的 *** 作，

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

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

使用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: $message\n";         } else {             print "problem unlinking $file: $message\n";         }     } } else {     print "No error encountered\n"; }

总结

以上是内存溢出为你收集整理的Perl create\remove folder全部内容，希望文章能够帮你解决Perl create\remove folder所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。