FTP error handling

[sappleg]

Hi Guys,

I am using the following ftp script in my Perl program. However, I want to track if the file has been successfully transfered or not. Is there any way to do this. I have browsed the net and this site exhaustively, but couldn't find any tips on this. Here's my small ftp script within perl:

open(FTP_PIPE,"|ftp -n -i 11.11.111.11");
print FTP_PIPE <<EOF;
user abcd efghijk
cd /dir1/dir2
binary
! dir
mput test*.txt
dir
EOF
close(FTP_PIPE);


Thanks for all your help/tips. Much appreciated.

 

[Kirsle]

http://search.cpan.org/perldoc?Net::FTP

afaik this is a core Perl module that you should probably already have installed, so use that instead... no sense reinventing the wheel. The method you're going about it (opening a pipe) makes it very difficult for the pipe to work in both directions. Net::FTP uses sockets directly so there's two-way communication.

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[KevinADC]

You might want to look into Net::FTP

http://search.cpan.org/~gbarr/libnet-1.22/Net/FTP.pm

It comes with perl so installing it should hopefully not be an issue.



------------------------------------------
- Kevin, perl coder unexceptional!

 

[sappleg]

Thanks Guys, I will have a look at Net::FTP module.

Thanks 'Cuvou.com' for your code. I am going to try this.