perl - 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";