in reply to parse file name
see File::Spec
use File::Spec; my ($volume, $directories, $file) = File::Spec->splitpath( $path ); my ($extension) = $file =~ /\.([^\.]+)$/;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: parse file name
by moritz (Cardinal) on Sep 22, 2009 at 17:35 UTC | |
by MidLifeXis (Monsignor) on Sep 22, 2009 at 17:50 UTC |
In Section
Seekers of Perl Wisdom