मैं निर्देशिका और फ़ाइल नाम में एक पूर्ण पथ कैसे अलग कर सकता हूं?

Question

$a = '/etc/init/tree/errrocodr/a.txt' 

मैं $file को $dir और a.txt को /etc/init/tree/errrocodr/ निकालना चाहते हैं। मैं उसे कैसे कर सकता हूँ?

(संपादक की टिप्पणी: मूल प्रश्न माना है कि आप उस के लिए एक नियमित अभिव्यक्ति की जरूरत है।)

Answer 1

बस Basename का उपयोग करें:

use File::Basename; 
$fullspec = "/etc/init/tree/errrocodr/a.txt"; 

my($file, $dir, $ext) = fileparse($fullspec); 
print "Directory: " . $dir . "\n"; 
print "File:  " . $file . "\n"; 
print "Suffix: " . $ext . "\n\n"; 

my($file, $dir, $ext) = fileparse($fullspec, qr/\.[^.]*/); 
print "Directory: " . $dir . "\n"; 
print "File:  " . $file . "\n"; 
print "Suffix: " . $ext . "\n"; 

आप इस आपके द्वारा अनुरोधित परिणाम लौटने देख सकते हैं, लेकिन यह है यह भी रूप में अच्छी तरह (ऊपर उत्तरार्द्ध खंड में) एक्सटेंशन कैप्चर करने की क्षमता:

Directory: /etc/init/tree/errrocodr/ 
File:  a.txt 
Suffix: 

Directory: /etc/init/tree/errrocodr/ 
File:  a 
Suffix: .txt 

Answer 2

आप इस के लिए एक regex की जरूरत नहीं है, आप dirname) का उपयोग कर सकते हैं (:

use File::Basename; 
my $dir = dirname($a) 

लेकिन इस regex काम करेगा:

my $dir = $a 
$dir =~ s/(.*)\/.*$/$1/ 

Answer 3

हो सकता है कि यह काम करेगा:

@^(.+/)/([^/]+)$@ 

Answer 4

उदाहरण के लिए:

$a =~ m#^(.*?)([^/]*)$#; 
    ($dir,$file) = ($1,$2); 

लेकिन, जैसा कि अन्य sa आईडी, इसके लिए Basename का उपयोग करना बेहतर है।

और, बीटीडब्ल्यू $a और $b से बेहतर नाम के रूप में बेहतर है, क्योंकि sort फ़ंक्शन के लिए उनके पास विशेष अर्थ है।

Answer 5

मुझे लगता है कि एक रेगेक्स समाधान पूरी तरह से वैध आवश्यकता है - क्योंकि मेरे गुगल ने मुझे यहां लाया है। मैं एक समूह है कि एक बड़ा मैच अभिव्यक्ति का हिस्सा है में एक फ़ाइल नाम बाहर निकलने के लिए चाहते हैं - यहाँ मेरी प्रयास है:

~> echo "https://stackoverflow.com/a/b/c/d" | perl -ne '/(?<dir>\/(\w+\/)*)(?<file>\w+)/ && print "dir $+{dir} file $+{file}\n";' 
dir /a/b/c/ file d 

Answer 6

इस कोशिश; यह कम से कम फ़ाइल नाम के लिए काम करता है, लेकिन जब आप इसे संशोधित करते हैं, तो यह आपको दिशा भी देता है: आप इसे यूनिक्स-सिस्टम पर \ n इसके बजाय/या दोनों के साथ उपयोग करने के लिए संशोधित भी कर सकते हैं।

$ filename = ~ s /(^.*/)// g;

किसी भी तरह बैकस्लैश 2 से पहले/प्रदर्शित नहीं किया जाता ...

Answer 7

उपयोग @array = split("/", $a); और फिर $array[-1] अपनी फ़ाइल नाम है।