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 <Tim.Bunce@ig.co.uk> and Charles Bailey <bailey@newman.upenn.edu>
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."
";
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