in reply to Parse out the extension of a filename - return base of filename.

Why not regexp it? 

$file =~ s/\.[^.]*$//;

[download]

(That said, you probably should use File::Basename: it's more likely to DTRT on platforms with different conventions for extensions...).

  • Comment on Re: Parse out the extension of a filename - return base of filename.
  • Download Code

In Section Cool Uses for Perl