http://www.perlmonks.org?node_id=702728

welchavw has asked for the wisdom of the Perl Monks concerning the following question:

UPDATE:I am giving up on this - feel free to do that, too

Net::FTP client script is not working. See how the put command appears to work, but the directory listing comes back empty. I feel like I am missing something easy. The FTP server works via ftp commandline client. Thanks. Code snippet is...

my $remote_file = $ftp->put($name) || die $ftp->message; print "remote_file $remote_file\n" unless $log_level < 3; print "ftp dir listing...", $ftp->dir(), "\n" unless $log_leve +l < 3; print "ftp pwd...", $ftp->pwd(), "\n" unless $log_level < 3;
Output is...
putting /runtime/images/rear_imgs_to_be_sent/0031061000211897171830451 +00000000000000000.tif as 003106100021189717183045100000000000000000.t +if Net::FTP=GLOB(0x83c71e4)>>> ALLO 984060 Net::FTP=GLOB(0x83c71e4)<<< 200 ALLO command successful. Net::FTP=GLOB(0x83c71e4)>>> PORT 10,255,1,101,194,26 Net::FTP=GLOB(0x83c71e4)<<< 200 PORT command successful. Net::FTP=GLOB(0x83c71e4)>>> STOR 0031061000211897171830451000000000000 +00000.tif Net::FTP=GLOB(0x83c71e4)<<< 150 Opening BINARY mode data connection fo +r 003106100021189717183045100000000000000000.tif. ###################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +##################################################################### +############################################################## Net::FTP=GLOB(0x83c71e4)<<< 226 Transfer complete. remote_file 003106100021189717183045100000000000000000.tif Net::FTP=GLOB(0x83c71e4)>>> PORT 10,255,1,101,219,80 Net::FTP=GLOB(0x83c71e4)<<< 200 PORT command successful. Net::FTP=GLOB(0x83c71e4)>>> LIST Net::FTP=GLOB(0x83c71e4)<<< 150 Opening BINARY mode data connection fo +r /bin/ls. Net::FTP=GLOB(0x83c71e4)<<< 226 Transfer complete. ftp dir listing...