parse file name

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: parse file name by Joost (Canon) on Sep 22, 2009 at 17:28 UTC
File::Basename "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
Re^2: parse file name by BioLion (Curate) on Sep 22, 2009 at 17:48 UTC
I agree - Since I discovered File::Basename, i use it all the time. Maybe OP should learn to love Super Search? Just a something something...	[reply]
Re^3: parse file name by leocharre (Priest) on Sep 22, 2009 at 20:00 UTC
Ahh... Super Search sucks. I'm so sorry to say that. It does- slow as world peace. Google does it better.. Search perlmonks for parsing a file path.. site:perlmonks.org parse file path Works better for me- searching inside perlmonks.. :-(	[reply]
Re^4: parse file name by Bloodnok (Vicar) on Sep 22, 2009 at 20:18 UTC
Re^3: parse file name by Tanktalus (Canon) on Sep 22, 2009 at 20:46 UTC
If you're going to suggest Super Search, the least you could do is Help Super Search Newbies.	[reply]
Re^2: parse file name by Anonymous Monk on Sep 22, 2009 at 19:59 UTC
Thanks ALL!	[reply]
Re: parse file name by ccn (Vicar) on Sep 22, 2009 at 17:26 UTC
see File::Spec `use File::Spec; my ($volume, $directories, $file) = File::Spec->splitpath( $path ); my ($extension) = $file =~ /\.([^\.]+)$/;` [download]	[reply] [d/l]
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]
Re: parse file name by leocharre (Priest) on Sep 22, 2009 at 19:57 UTC
File::PathInfo `use File::PathInfo; my $abs = '/home/myself/thing.txt'; my $o = File::PathInfo->new($abs) or die; $o->ext; $o->abs_loc; # then dir it resides in $o->abs_path; $o->filename; $o->filename_only; # filename without ext` [download]	[reply] [d/l]
Re: parse file name by sabari (Beadle) on Sep 23, 2009 at 06:34 UTC
What about the split function ... Best Regards, S.Sabarinathan,	[reply]
Re: parse file name by bichonfrise74 (Vicar) on Sep 23, 2009 at 21:43 UTC
You can simply use split to get the filename. `#!/usr/bin/perl use strict; my $long_file = '/abc/xyz/abc.txt'; my $file = ( split( "/", $long_file ) )[-1]; print "$file\n";` [download]	[reply] [d/l]
Re^2: parse file name by Anonymous Monk on Sep 24, 2009 at 16:50 UTC
The scenario is, I need to get the filename and file path no matter it is in windows or unix type. it can be either of the below my $long_file = '/abc/xyz/abc.txt'; my $long_file = '\abc\xyz\abc.txt'; In this case File::Basename and File::Spec wont return the directory part if the file name is windows format and i am running the script from unix. Any Solution for this? Thanks, Tom	[reply]
Re^3: parse file name by afoken (Chancellor) on Sep 26, 2009 at 07:55 UTC
Replace all backslashes in $long_file with forward slashes before working with $long_file. Using the tr/// operator should be the most efficient implementation. Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply]