Perl & LWP
#!/usr/bin/perl -w require Net::FTP; my $host="FTP IP 位址"; my $user="FTP 帳號"; my $pass="FTP 密碼"; $ftp = Net::FTP->new($host, Debug=> 0)|| die "can not connect to $host."; $ftp->login("$user", "$pass"); print $ftp->message; $ftp->list; print $ftp->message; $ftp->quit; print $ftp->message; exit 0;
Last updated