Re: Fetch filename only

[serf]

File::Basename is the most robust and portable way to do this.

If you still wanted to do it via regexp instead you could do something like:

$name =~ s/^.*\\//;

(which says remove any characters up to and including the last backslash)

NB(1): This uses =~, not = as you have in your example.

In your example, by using \w\:\\ you were trying to cater for the ones which start with a drive letter [CG]:\,
but were forgetting about \\\InforServer\data.xls which presumably has a UNC pathname, starting with \\

You could have done the "drive letter" ones with:

$name =~ s/^\w:\\.*\\//; (Note: The : doesn't need escaping here)

or better:

$name =~ s/^[A-Z]:\\.*\\//;

NB(2): Think about the fact that the path will have word characters and spaces and backslashes in it,

Also all of these regexps *have* to finish with a \\ to terminate the match, otherwise the greediness will go on and eat up the filename as well.

[Anonymous Monk]

Thanks alot for the quick responses.
We have Perl 5.8 on our server and I assume File::Basename is a standard module with that version?

If not I will use your req expression but right now I am testing it on my workstation and not sure if we have File::Basename on our server if it is not a standard module.