Re: parse file name


use File::Spec;

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

Comment on Re: parse file name Download Code

Replies are listed 'Best First'.
Re^2: parse file name by moritz (Cardinal) on Sep 22, 2009 at 17:35 UTC
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.	[reply] [d/l] [select]
Re^3: parse file name by MidLifeXis (Monsignor) on Sep 22, 2009 at 17:50 UTC
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. --MidLifeXis Please consider supporting my wife as she walks in the 2009 Alzheimer's Walk.	[reply]