पर्ल में एक शॉट में मैं अपनी सभी उपनिर्देशिकाओं के साथ पथ कैसे बना सकता हूं?

Question

यदि आपके पास फ़ाइल का पथ है (उदाहरण के लिए, /home/bob/test/foo.txt) जहां पथ में प्रत्येक उपनिर्देशिका मौजूद हो या न हो, तो मैं फ़ाइल को foo.txt कैसे बना सकता हूं "/home/bob/test/foo.txt" का उपयोग केवल एक ही पथ में प्रत्येक गैर-निर्देशिका निर्देशिका बनाने के बजाय एकमात्र इनपुट के रूप में करता है और अंत में foo.txt स्वयं बना देता है?

Answer 1

आप का उपयोग File::Basename और File::Path

use strict; 
use File::Basename; 
use File::Path qw/make_path/; 

my $file = "/home/bob/test/foo.txt"; 
my $dir = dirname($file); 
make_path($dir); 
open my $fh, '>', $file or die "Ouch: $!\n"; # now go do stuff w/file 

मैं अगर फ़ाइल पहले से मौजूद है, लेकिन है कि पर्ल के साथ जोड़ने के लिए बहुत आसान है देखने के लिए किसी भी परीक्षण में नहीं जोड़ा था कर सकते हैं।

Answer 2

उपयोग make_dir from File::Util

use File::Util; 
    my($f) = File::Util->new(); 
    $f->make_dir('/var/tmp/tempfiles/foo/bar/'); 

    # optionally specify a creation bitmask to be used in directory creations 
    $f->make_dir('/var/tmp/tempfiles/foo/bar/',0755); 

Answer 3

मैं वहाँ एक मानक समारोह है कि फ़ाइल नाम से सीधे आप क्या पूछना सभी कर सकते हैं, है नहीं लगता।

लेकिन mkpath(), मॉड्यूल फ़ाइल :: पथ से, लगभग फ़ाइल नाम की निर्देशिका को दे सकता है। फ़ाइल :: पथ डॉक्स से:

"mkpath" समारोह निर्देशिका बनाने के लिए एक सुविधाजनक तरीका प्रदान, भले ही आपके "mkdir" कर्नेल कॉल पर निर्देशिका के एक से अधिक स्तर नहीं बना होगा एक वक़्त।

ध्यान दें कि mkpath() त्रुटियों को एक अच्छी तरह से रिपोर्ट नहीं करता है: किसी कारण से, यह केवल शून्य लौटने की बजाय मर जाता है।

सब देखते हुए, आप की तरह कुछ कर सकता:

use File::Basename; 
use File::Path; 

my $fname = "/home/bob/test/foo.txt"; 

eval { 
    local $SIG{'__DIE__'}; # ignore user-defined die handlers 
    mkpath(dirname($fname)); 
}; 
my $fh; 
if ($@) { 
    print STDERR "Error creating dir: $@"; 
} elsif (!open($fh, ">", $fname)) { 
    print STDERR "Error creating file: $!\n"; 
}