Is there a regular expression in Perl to find a file's extension?

Question

Is there a regular expression in Perl to find a file's extension? For example, if I have "test.exe", how would I get the ".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

use File::Basename

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