Re: extract file name from a dynamic path

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]

Comment on Re: extract file name from a dynamic path Download Code

Replies are listed 'Best First'.
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]