Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Re: Re: Net::FTP

by nimdokk (Vicar)
on Oct 03, 2003 at 10:05 UTC ( [id://296185]=note: print w/replies, xml ) Need Help??


in reply to Re: Re: Net::FTP
in thread Net::FTP's get() does not handle wildcards

I think that there might be a problem with that. It might work, but I would suggest cleaning up one line a bit. Instead of:
if (s/(\w+shar\d\d\d\d\d\d\.\d\d\d\d)/$1/)

I would suggest:

if (m/(\w+shar\d\d\d\d\d\d\.\d\d\d\d)/)
What you are doing with s/// is substituting your regular expression for $1. The parenthesis around the expression delimit(?) $1. So it would appear that you are substituting the regular expression for itself. Then of course setting your variable $file to be equal to $1. Note the m/// in the second if statement. Also, your regular expresion could match on more than one file that fit that pattern if several files fit that scheme.


"Ex libris un peut de tout"

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2024-03-29 11:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found