Halo,
saya baru aja nyobain buat program buat ngambil file lewat ftp pake
perl. Memang program tersebut jalan dan dapat mengambil file yang saya
inginkan. Tapi sebelum
respon yang diinginkan muncul pesan error sbb:
Constant subroutine __need_size_t undefined at
/usr/lib/perl5/5.00503/i386-linux/stddef.ph line 131.
Prototype mismatch: sub chat::__need_size_t vs () at (eval 46) line 1.
Constant subroutine __need_time_t undefined at
/usr/lib/perl5/5.00503/i386-linux/time.ph line 28.
String found where operator expected at (eval 185) line 1, near
"&__const 'struct sockaddr'"
(Missing operator before 'struct sockaddr'?)
Sedangkan programnya adalah sbb:
#/usr/bin/perl
require "ftp.pl";
$timeout=30;
$FtpHost = "202.148.3.67";
&ftp::open($FtpHost,21,0,1);
&ftp::login("ag5","zlooping");
$pwd = &ftp::pwd;
print "pwd = $pwd\n";
$newdir = "/home/ag5/gaex/cgksub";
&ftp::cwd($newdir);
&ftp::dir_open;
print "Directory listing for $newdir :\n";
while (&ftp::read() > 0){
print $ftp::buf;
}
&ftp::dir_close;
&ftp::type("A");
$myfile = "1sepCGK.ag5";
print "Getting $myfile\n";
&ftp::get($myfile);
&ftp::close;
Dimana ya letak salahnya ??
Saya menggunakan redhat linux 6.1 dan perl-nya versi 5.00503.
Terimakasih sebelumnya
agung sidarta
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
