【Perl】Path::File 目录的创建和删除-白红宇

【Perl】Path::File 目录的创建和删除

阅读量：6929 次

发布时间：2019-06-27

本文共 1250 字，大约阅读时间需要 4 分钟。

1 Path::File中两个函数的基本使用

make_path( $dir1, $dir2, .... )make_path( $dir1, $dir2, ...., \%opts ) #\%opts表示哈希引用mkpath( $dir )mkpath( $dir, $verbose, $mode )mkpath( [$dir1, $dir2,...], $verbose, $mode )mkpath( $dir1, $dir2,..., \%opt )mode => $num 每个创建目录的权限位，默认为0777，可以通过umask来修改。Linux下verbose => $bool 若为1则打印所有创建成功的目录。默认情况下为0error => \$err 一个list引用，存储发生的任何错误信息。owner => $onweruser => $useruid => $owner 用户idgroup => $groupremove_tree( $dir1, $dir2, .... )remove_tree( $dir1, $dir2, ...., \%opts )rmtree( $dir )rmtree( $dir, $verbose, $safe )rmtree( [$dir1, $dir2,...], $verbose, $safe )rmtree( $dir1, $dir2,..., \%opt )verbose => $bool 是否打印成功删除的目录safe => $bool 设为1时则删除时会跳过不能删除的目录

2 代码举例：

use File::Path;rmtree('shan');rmtree( 'foo/bar', 'bar/rat', {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";}