Re: Error ftping file with Net::FTP

[thanos1983]

Hello Anonymous Monk,

Try something like this:

#!/usr/bin/perl
use CGI;
use strict;
use warnings;
use Net::FTP;
use feature 'say';

my $cgi = CGI->new();
my $file = $cgi->param( 'upload' ) || 'test.pl';

say do_ftp($file);

sub do_ftp {
    my ($filename) = @_;
    return unless $filename ;
}

__END__

$ perl ftp.pl
test.pl

We do not have the full code but I assume my $file = $cgi->param( 'upload' ) || ''; that you are passing an empty string here right? I have alter the code in two points. Observe the () in the subroutine also.

I would recommend to use module Net::SFTP::Foreign. Similar question with samples of working code(s) Generate temporary file and FTP upload.

Hope this helps, BR.

[Anonymous Monk]

I was missing the "()" in the sub, thanks for pointing that out!

[Anonymous Monk]

Is there a bug in Net::FTP?
I am checking if the file exists using this command:
my @check = $ftp->ls("$filename"); I am getting an error:


Can't use an undefined value as a symbol reference at /Net/FTP/datacon
+n.pm line 54.


Any suggestions?

[hippo]

Have you tried disabling passive mode?

[Anonymous Monk]

Yes, that seems to fix the issue:


my $ftp = Net::FTP->new($host, Debug => 0, Passive => 0)
    or die "Could not connect to '$host': $@";


Thank you!