On Fri, Feb 12, 1999 at 03:51:23PM +0700, [EMAIL PROTECTED] wrote:
>pakai perl module Net::FTP lebih simple,
Tapi kalo mo tetep pake expect, ini contoh scriptnya:
----- begin/ -----
#!/usr/bin/expect
spawn /usr/bin/ftp -v ftp.ncftp.com # login ke ftp.ncftp.com
while 1 { expect {
"Name*: " { send "ftp\r" }
"Password:" { send "[exec whoami]@\r"; break }
}
}
expect "ftp> " { send "lcd /tmp\r" }
expect "ftp> " { send "cd ncftp/3.0BETA\r" } # ambil versi terbaru ncftp
expect "ftp> " { send "get ncftp-3.0beta17-src.tar.gz\r" }
expect "ftp> " { send "quit\r"; send_user "\r" }
exit 0
----- /end -----
-kum
--
cat $HOME/.signature: No such file or directory
______________________________________________________________________
Utk berhenti langganan kirim email ke [EMAIL PROTECTED]
Sudah cari di arsip? http://www.linux.or.id/milis.php3#arsip-id-linux
Utk info etika diskusi, kirim email kosong ke [EMAIL PROTECTED]
