Chinaunix

标题: perl打开不存在的文件路径时，怎么自动创建目录？ [打印本页]

---

作者: rrrrrrrr8    时间: 2011-10-13 15:23
标题: perl打开不存在的文件路径时，怎么自动创建目录？
有什么方法？
比如
open FILE,">dir1\\dir2\\file1" or die "$!";
当前目录下没有dir1,它就抛：No such file or directory at test.pl line 39.

---

作者: rrrrrrrr8    时间: 2011-10-13 16:27
看来没简单现成的方法，自己写一个：
sub createFilePath{
        my $filePath = shift;
        my $separator = shift || "\\";
        my $pos = 0;
        while (($pos = index($filePath, $separator, $pos)) > -1) {               
                my $path = substr $filePath,0,$pos;               
                unless (-e $path) {
                        mkdir $path or die $!;
                } elsif( !(-d $path)) {
                        die "$path is not a directory."
                } else {
                }
                $pos++;
        }
}

---

作者: marscld    时间: 2011-10-13 16:35
使用 File::Util的make_dir().

Syntax: make_dir( [new directory name] , [bitmask], [--opts] )

---

作者: Perlvim    时间: 2011-10-13 21:08
use File:ath qw<make_path>;

1. use File::Path qw(make_path remove_tree);
   
2. 
   
3.   make_path('foo/bar/baz', '/zug/zwang');
   
4.   make_path('foo/bar/baz', '/zug/zwang', {
   
5.       verbose => 1,
   
6.       mode => 0711,
   
7.   });
   
8. 
   
9.   remove_tree('foo/bar/baz', '/zug/zwang');
   
10.   remove_tree('foo/bar/baz', '/zug/zwang', {
    
11.       verbose => 1,
    
12.       error  => \my $err_list,
    
13.   });
    
14. 
    
15.   # legacy (interface promoted before v2.00)
    
16.   mkpath('/foo/bar/baz');
    
17.   mkpath('/foo/bar/baz', 1, 0711);
    
18.   mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
    
19.   rmtree('foo/bar/baz', 1, 1);
    
20.   rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);

复制代码

---

作者: Perlvim    时间: 2011-10-13 21:09
可以直接创建多层子目录

---

作者: robinho_nju    时间: 2011-10-18 20:29
system('mkdir -p **')

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2