Solved

PERL and ftp

Posted on 2004-09-30
6
383 Views
Last Modified: 2006-11-17
Hi All,

I am trying to write a script that will ftp files from a Linux PC, to a Web Server.  I wrote a PERL script, and when I execute it, first of all, it takes quite a while to send a 1 kb file, and then, when I check the destination directory after words, the file is listed there but is 0 kb, and is completely empty.  I've been trying to send a txt file just to work the bugs out, but I am completely stumped.  I've tried binary mode and Ascii (I'm really not sure when to use either of them) and still the same results.  Here is the script I wrote:

#!/usr/bin/perl
use CGI;
use Net::FTP;

$LOGIC="xxx.xxx.xxx.xxx"; # destination i.p. address actual address is in my script
$file="brian.txt"; #file I want to transfer

 $ftp = Net::FTP->new($LOGIC, Debug => 0);
 $ftp->login("username","password"); #actual username and password is in my script

 $ftp->put($file);
 $ftp->quit;
exit();
0
Comment
Question by:wxman1
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
6 Comments
 
LVL 28

Expert Comment

by:FishMonger
ID: 12191407
Let's start by enabling debuging and printing out errors.

$ftp = Net::FTP->new($LOGIC, Debug => 1);
$ftp->login("username","password") or die 'login', $ftp->message;

$ftp->put($file) or die 'put', $ftp->message;
$ftp->quit;
0
 
LVL 12

Expert Comment

by:geotiger
ID: 12191507
I think that it might be due to the put could not find the file. It is better to use full path in $file such as

$file = "/my/path/to/brain.txt";
0
 

Author Comment

by:wxman1
ID: 12191567
Okay,

After turning on the debugging, this is what came back:


Net::FTP>>> Net::FTP(2.72)
Net::FTP>>>   Exporter(5.57)
Net::FTP>>>   Net::Cmd(2.24)
Net::FTP>>>   IO::Socket::INET(1.27)
Net::FTP>>>     IO::Socket(1.28)
Net::FTP>>>       IO::Handle(1.23)
Net::FTP=GLOB(0x9e2570)<<< 220 logic-web-b FTP Server (vftpd 1.31) ready.
Net::FTP=GLOB(0x9e2570)>>> user username
Net::FTP=GLOB(0x9e2570)<<< 331 Password required for username.
Net::FTP=GLOB(0x9e2570)>>> PASS ....
Net::FTP=GLOB(0x9e2570)<<< 230 User username logged in.
Net::FTP=GLOB(0x9e2570)>>> ALLO 11
Net::FTP=GLOB(0x9e2570)<<< 200 ALLO command ignored.
Net::FTP=GLOB(0x9e2570)>>> PORT 10,0,2,55,210,30
Net::FTP=GLOB(0x9e2570)<<< 200 PORT command successful.
Net::FTP=GLOB(0x9e2570)>>> STOR brian.txt
Net::FTP=GLOB(0x9e2570)<<< 150 Opening ASCII mode data connection for brian.txt
putOpening ASCII mode data connection for brian.txt

Thats what came up on the screen.  Any suggestions?
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:wxman1
ID: 12192198
geotiger

I added the full path, still having the same problem though
0
 
LVL 18

Accepted Solution

by:
kandura earned 50 total points
ID: 12194588
have you tried Passive mode yet?
It sounds like the data connection isn't made correctly, which might be due to firewall settings, or the ftp server configuration.

add "Passive => 1" to your Net::FTP->new call.
0
 

Author Comment

by:wxman1
ID: 12202997
Passive Mode!  I completely forgot!  That did the trick thanks!
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question