extract file name from a dynamic path

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

Replies are listed 'Best First'.
Re: extract file name from a dynamic path by ikegami (Patriarch) on Sep 06, 2008 at 17:13 UTC
Use File::Basename's `basename`. It's part of Perl.	[reply] [d/l]
Re^2: extract file name from a dynamic path by alexm (Chaplain) on Sep 07, 2008 at 01:41 UTC
While writing my last CUFP I found a warning about `basename` in File::Basename: This function is provided for compatibility with the Unix shell command `basename(1)`. It does NOT always return the file name portion of a path as you might expect. To be safe, if you want the file name portion of a path use `fileparse()`. I'd like to see an example of this, since I can't figure out what can be wrong with `basename`.	[reply] [d/l] [select]
Re^3: extract file name from a dynamic path by Anonymous Monk on Sep 07, 2008 at 06:12 UTC
Just keep reading, it says `C<basename()> returns the last level of a filepath even if the last level is clearly directory. In effect, it is acting like C<pop()> for paths. This differs from C<fileparse()>'s behaviour. # Both return "bar" basename("/foo/bar"); basename("/foo/bar/");` [download]	[reply] [d/l]
Re^4: extract file name from a dynamic path by alexm (Chaplain) on Sep 07, 2008 at 18:33 UTC
Re: extract file name from a dynamic path by johngg (Canon) on Sep 06, 2008 at 17:15 UTC
File::Basename should do what you want. Cheers, JohnGG	[reply]
Re: extract file name from a dynamic path by harleypig (Monk) on Sep 06, 2008 at 17:34 UTC
I would agree with the response above. Use File::Basename. It handles a lot of things you wouldn't necessarily think to include. However, for the sake of completeness, there are a couple of ways you could do this: `( $filename ) = $tst =~ /^.\\(.)$/` `$filename = ( split /\\/, $tst )[-1]` Harley J Pig	[reply] [d/l] [select]
Re: extract file name from a dynamic path by SFLEX (Chaplain) on Sep 06, 2008 at 18:07 UTC
You could use a module or write the 1 line of code to do the job. Here's another way. `my $file_name = ''; $tst = 'test\testweb\testlibb\file.-finaltestfla.jar'; $file_name = $1 if ($tst =~ m/\A\S+\\(.*?\.jar)\z/i); print $file_name . "\n" . $tst;` [download]	[reply] [d/l]
Re^2: extract file name from a dynamic path by jwkrahn (Abbot) on Sep 06, 2008 at 18:32 UTC
`john@perl:~$ perl -le' my $file_name = q[]; $tst = q[test\test web\test libb\file.-finaltestfla.jar]; $file_name = $1 if ($tst =~ m/\A\S+\\(.*?\.jar)\z/i); print $file_name . "\n" . $tst; ' test web\test libb\file.-finaltestfla.jar test\test web\test libb\file.-finaltestfla.jar` [download]	[reply] [d/l]
Re^3: extract file name from a dynamic path by dani_cv (Acolyte) on Sep 06, 2008 at 18:57 UTC
Thank you all!	[reply]
Re^3: extract file name from a dynamic path by SFLEX (Chaplain) on Sep 06, 2008 at 20:49 UTC
the original path didn't have spaces	[reply]