在Perl中是否有正则表达式来查找文件的扩展名？

Question

在Perl中是否有正则表达式来查找文件的扩展名？例如,如果我有" 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

使用File :: Basename

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