http://www.perlmonks.org?node_id=729507


in reply to Re: Regex To Remove File Extension
in thread Regex To Remove File Extension

You're assuming too much, your regex will fail on:
index.html foo.pl CGI.pm video.mpeg foo.pl~
and you'll get a bad result with *nix dotfiles
.foo .bar

Focus on the requirements - 1) A file must contain an extension 2) the extension is everything following the final dot

my @names = qw/ index.html foo.pl CGI.pm video.mpeg foo.pl~ .bash_hist +ory .bash_rc /; foreach my $string ( @names ) { print "$string -> "; $string =~ s/(.+)\.[^.]+$/$1/; print "$string\n"; }
grep
One dead unjugged rabbit fish later...