Re: Uploading Time (getting last element of a variable)

[thatguy]

sure it's a cludge and there's a better way, but why split when you can just do:

$file="C:/aplle/index.htm";
$file=~ s/(.| )*\///; # delete everything(!) upto the last /
print $file;

and to answer your question there AM, you have to escape a / if you use it in a regex because there are /'s as the separator. Naturally if your slash goes the other way (and there is no shame in that) you still have to escape it because perl thinks you are escaping the character after the \.
-phill

[SarahM]

Since he is working on a file upload to a webserver, the slash could be either way, it depends on how the client sends it. But this should work for either

$file="C:/aplle/index.htm";
$file=~ s/.*[\/\\]//; # delete everything(!) upto the last / or \
print $file;

P.S. Why did you use (.| )* instead of .* ?

[thatguy]

no reason other than just not having used said .*

technically, i should not have used that at all, but I thought I would throw another perspective in. and it does work, just as long as the input data never changes, etc (it's what drives my archaic website)
-phill

[dsheroh]

technically, i should not have used that at all

Not true. In this case, you want the greediness. .* really is what you mean.

[Aristotle]

If one really wants to do it with a regex, a much better way would be

$fullname = "C:\\apple\\index.htm";
my ($file) = $fullname =~ m!([^/\\]+)$!;
print $file;

Zero backtracking here. However, Macs are still going to be a problem (paths are separated with doublecolons there, right?), so File::Basename is what one should use.

use File::Basename; # I ain't afraid of no ghosts..
$fullname = "C:\\apple\\index.htm";
my $file = basename $fullname;
print $file;

____________
Makeshifts last the longest.