Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: net::ftp please

by Adam (Vicar)
on Apr 18, 2001 at 04:46 UTC ( #73403=note: print w/replies, xml ) Need Help??


in reply to net::ftp please

Net::FTP is actually part of the libnet distribution. The module is actually pretty solid, except that you have to check the return codes after every call. (I'm not a real fan of that style of code.) This is done by calling $ftp->ok() after every other $ftp call. The actual message is in two parts, code() and message(). So you end up doing:
use strict; use Net::FTP; my $ftpSite = "ftp.somesite.net"; my $username = "..."; my $password = "..."; my $ftp = Net::FTP->new( $ftpSite ) or die "No connect to '$ftpSite' : $@"; $ftp->login( $username, $password ); die $ftp->code(), ": ", $ftp->message() unless $ftp->ok(); # and so on...
I usually write a status method that retrieves and prints the status messages regardless of any errors, and then hiccups when not $ftp->ok(). So my code reads $ftp->func(); check( $ftp ); over and over again. But the end result is well worth it.

I hope that helps.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://73403]
help
Chatterbox?
[GotToBTru]: $aohoaoh->[0] is a hash reference, so $aohoaoh->[0]->{ key1} would work
[1nickt]: If 1nickt is the some guy, that's not what he said.
[GotToBTru]: thepkd might not know about last hour of cb
[1nickt]: my $x = $aohoaoh->[0]->{' foo'}->[0]->{'bar' }; should work
[thepkd]: its not $aohoaoh->[0]. its $aohoaoh[0]->{'foo '}. Tried it. Its working. Thnaks
[thepkd]: Hey 1nickt sorry man. What
[GotToBTru]: a ref too far ;)

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (12)
As of 2016-12-06 13:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (105 votes). Check out past polls.