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

tigh

　　

• 1 Path::File中两个函数的基本使用
  
• 2 代码举例：
  
• 3 more help
  

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则打印所有创建成功的目录。默认情况下为0
error => \$err 一个list引用，存储发生的任何错误信息。
owner => $onwer
user => $user
uid => $owner 用户id
group => $group

remove_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";
}



3 more help


　　perldoc Path::File



Author: visaya fan <visayafan[AT]gmail.com or visayafan[AT]163.com>
Date: 2011-10-29 15:52:00
HTML generated by org-mode 6.33x in emacs 23