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


in reply to Re: Probably silly regex question / not so silly regex question
in thread Probably silly regex question / not so silly regex question

I was just going to write that... I use File::Basename all the time for filename splitting. Hasn't failed me yet and heres how you do your bit. 
use strict;
use File::Basename;

my $file = '/ftp/dest/id.ext';

my ($name, $path, $suffix);

my @suffixes = ('.ext'); # Extra extensions can be added to the list.

($name, $path, $suffix) = fileparse($file, @suffixes);

[download]
Coffee, KitKat, and a new script to write. It's gonna be a good day....

In Section Seekers of Perl Wisdom