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

\.[^\.]*$

This would give you everything after the last dot (including the dot itself) until the end of the string.

Answer 2

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 3

You could use File::Basename to extract an arbitrary file extension:

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

Answer 4

use File::Basename

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