Re: parse file name

[ccn]

in reply to parse file name

see File::Spec

use File::Spec;

my ($volume, $directories, $file) = File::Spec->splitpath( $path );
my ($extension) = $file =~ /\.([^\.]+)$/;

[moritz]

Note that the notion of a "file extension" is a rather vague concept. For example in perl-5.10.1.tar.gz I would consider the .tar.gz to be the extension.

So if you want to DWIM, you'd have to keep a list of known file extensions that contain a dot, and special case them.

[MidLifeXis]

Or you could consider it to be a recursive definition, so that .gz is the extension of the perl-5.10.1.tar, and .tar is the extension of perl-5.10.1.

6 of one, 1/2 dozen of another.