Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Net::FTP put failing silently?

by Khen1950fx (Canon)
on Aug 06, 2008 at 22:09 UTC ( #702759=note: print w/replies, xml ) Need Help??


in reply to Net::FTP put failing silently?

Never "give up". Try this for your put Re: Net:FTP Not overwrite files. It uses Net::FTP::File.

Update: I've been working on this example for a while now. The put cmd isn't allowed, so I used get. Added Filter::cpp

#!/usr/bin/perl use strict; use warnings; use Net::FTP; use Filter::cpp; use constant HOST => 'ftp.perl.org'; use constant DIR => '/pub/CPAN'; use constant REMOTE_FILE => 'README'; my $ftp = Net::FTP->new(HOST, Debug => 1, Passive => 1) or die "Couldn +'t connect: $@\n"; $ftp->login('anonymous'); $ftp->cwd(DIR); $ftp->ascii(); $ftp->pwd(); #define DEBUG my $x = 'log_level'; my $log_level; #ifdef DEBUG $log_level = 1; #else $log_level = 3; #endif ($log_level <= 3) and print "$log_level <= 3: \$x is \"$x\"\n"; $ftp->get(REMOTE_FILE) unless $log_level == 3; print "Done\n" unless $log_level == 3; $ftp->quit;

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2020-02-19 01:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?










    Results (80 votes). Check out past polls.

    Notices?