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;
|
---|
In Section
Seekers of Perl Wisdom