perl + ftp

letmein · 08-05-2003, 11:11 AM

hi

i am writing a perl script to connect tomy FTP server, i am using perl-5.8.0
& heres how my code looks...

require "ftp.pl;
$FtpHost = "134.88.147.226";
if (&ftp:

pen($FtpHost,21,0,1)!= 1)
{
die "Can't open $FtpHost\n";
}
if (&ftp:login("test1","test1") != 1) {
die "Can't Login to $FtpHost\n";
}
&ftp::close;

but i am getting an error , "chat2.pl" not found something like this ...
can anyone tell whats wrong?

stickman · 08-05-2003, 01:56 PM

Looks like your missing "chat2.pl". You can probably get it from the same place as ftp.pl. Have you tried using Net::FTP?

letmein · 08-06-2003, 02:15 PM

yah ...

it works perfectly fine with Net::FTP

use Net::FTP;
$ftp = Net::FTP->new('134.88.147.226','Debug', 10);
$ftp->login('test1','test1');
$ftp->quit;

works good for me ....