Perl File::Path 模块

perldoc  File::Path
NAME
       File::Path - create or remove directory trees

SYNOPSIS
           use File::Path;

           mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
           rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);

DESCRIPTION
       The "mkpath" function provides a convenient way to create directories, even if your "mkdir" kernel call won't create more than one
       level of directory at a time.  "mkpath" takes three arguments:

mkpath 函数提供了便利的方式来创建目录,提供了3个参数

       ?   the name of the path to create, or a reference to a list of paths to create,

         要创建的路径名字,或者相关的一系列路径

       ?   a boolean value, which if TRUE will cause "mkpath" to print the name of each directory as it is created (defaults to FALSE),
           and

         一个布尔值,TRUE的话会导致mkpath来打印每个目录的名字

       ?   the numeric mode to use when creating the directories (defaults to 0777), to be modified by the current umask.

       创建目录 umask数值 ,默认为0777 ,一般为0755

       It returns a list of all directories (including intermediates, determined using the Unix '/' separator) created.

       它返回所有目录的列表

       If a system error prevents a directory from being created, then the "mkpath" function throws a fatal error with "Carp::croak".
       This error can be trapped with an "eval" block:

         eval { mkpath($dir) };
         if ($@) {
           print "Couldn't create $dir: $@";
         }

       Similarly, the "rmtree" function provides a convenient way to delete a subtree from the directory structure, much like the Unix
       command "rm -r".  "rmtree" takes three arguments:

       ?   the root of the subtree to delete, or a reference to a list of roots.  All of the files and directories below each root, as
           well as the roots themselves, will be deleted.

       ?   a boolean value, which if TRUE will cause "rmtree" to print a message each time it examines a file, giving the name of the
           file, and indicating whether it's using "rmdir" or "unlink" to remove it, or that it's skipping it.  (defaults to FALSE)

       ?   a boolean value, which if TRUE will cause "rmtree" to skip any files to which you do not have delete access (if running under
           VMS) or write access (if running under another OS).  This will change in the future when a criterion for 'delete permission'
           under OSs other than VMS is settled.  (defaults to FALSE)

       It returns the number of files successfully deleted.  Symlinks are simply deleted and not followed.

       NOTE: There are race conditions internal to the implementation of "rmtree" making it unsafe to use on directory trees which may be
       altered or moved while "rmtree" is running, and in particular on any directory trees with any path components or subdirectories
       potentially writable by untrusted users.

       Additionally, if the third parameter is not TRUE and "rmtree" is interrupted, it may leave files and directories with permissions
       altered to allow deletion (and older versions of this module would even set files and directories to world-read/writable!)

       Note also that the occurrence of errors in "rmtree" can be determined only by trapping diagnostic messages using $SIG{__WARN__};
       it is not apparent from the return value.

DIAGNOSTICS
       ?   On Windows, if "mkpath" gives you the warning: No such file or directory, this may mean that you've exceeded your filesystem's
           maximum path length.

AUTHORS
       Tim Bunce <[e-mail]> and Charles Bailey <[e-mail]>

perl v5.8.8                       2009-07-02                     File::Path(3)


示例:

sub Errorlog(){
 eval{mkpath($path."/LOG/$DW_DATA_DT/",0,0755)};
  my $logfile=$path."/LOG/$DW_DATA_DT/".$SYS."_EXPORT.TXT";
  open(LOGFILE,">>",$logfile) or die ("open logfile failed");
  print LOGFILE $TABLE_NAME."\n";
  close(LOGFILE);
}

[oracle@jhoa 2]$ cat a8.pl 
#use strict; 
#use warnings;
use File::Path;
use File::Copy;
use DBI;
#use Net::FTP;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
eval { mkpath("/root/20141209",0,0755) };
         if ($@) {
           print "Couldn't create $dir: $@";
         }
[oracle@jhoa 2]$ perl a8.pl 
Couldn't create : mkdir /root/20141209: Permission denied at a8.pl line 8