Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

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

by thatguy (Parson)
on Jun 13, 2002 at 23:27 UTC ( #174372=note: print w/ replies, xml ) Need Help??


in reply to Uploading Time

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


Comment on Re: Uploading Time (getting last element of a variable)
Download Code
Re: Re: Uploading Time (getting last element of a variable)
by SarahM (Monk) on Jun 13, 2002 at 23:46 UTC
    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 .* ?
      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

        technically, i should not have used that at all

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

Re^2: Uploading Time (getting last element of a path)
by Aristotle (Chancellor) on Jun 14, 2002 at 08:47 UTC
    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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://174372]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (10)
As of 2014-09-02 20:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (29 votes), past polls