क्या फ़ाइल का विस्तार खोजने के लिए पर्ल में नियमित अभिव्यक्ति है?

Question

क्या फ़ाइल का विस्तार खोजने के लिए पर्ल में नियमित अभिव्यक्ति है? उदाहरण के लिए, यदि मेरे पास "test.exe" है, तो मुझे ".exe" कैसे मिलेगा?

Answer 1

my $file = "test.exe"; 

# Match a dot, followed by any number of non-dots until the 
# end of the line. 
my ($ext) = $file =~ /(\.[^.]+)$/; 

print "$ext\n"; 

Answer 2

\.[^\.]*$ 

यह आपको स्ट्रिंग के अंत तक अंतिम बिंदु (डॉट सहित) के बाद सब कुछ देगा।

Answer 3

आप File::Basename इस्तेमाल कर सकते हैं एक मनमाना फ़ाइल एक्सटेंशन को निकालने के लिए:

use strict; 
use warnings; 
use File::Basename; 
my $ext = (fileparse("/foo/bar/baz.exe", qr/\.[^.]*/))[2]; 
print "$ext"; 

Answer 4

उपयोग फ़ाइल :: बेसनाम

use File::Basename; 
    ($name,$path,$suffix) = fileparse("test.exe.bat",qr"\..[^.]*$"); 
    print $suffix; 

Answer 5

यहाँ यह एक regex पैटर्न n-स्तरीय एक्सटेंशन फ़ाइल मैच के लिए है (उदाहरण के लिए .tar.gz या .tar.bz2)।

((\.[^.\s]+)+)$ 

उदाहरण:

#!/usr/bin/perl 

my $file1 = "filename.tar.gz.bak"; 
my ($ext1) = $file1 =~ /((\.[^.\s]+)+)$/; 

my $file2 = "filename.exe"; 
my ($ext2) = $file2 =~ /((\.[^.\s]+)+)$/; 

my $file3 = "filename. exe"; 
my ($ext3) = $file3 =~ /((\.[^.\s]+)+)$/; 

my $file4 = "filename.............doc"; 
my ($ext4) = $file4 =~ /((\.[^.\s]+)+)$/; 

print "1) $ext1\n"; # prints "1) .tar.gz.bak" 
print "2) $ext2\n"; # prints "2) .exe" 
print "3) $ext3\n"; # prints "3) " 
print "4) $ext4\n"; # prints "4) .doc"