自动从ftp下载文件（不回显输入密码）

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/perl 
#===============================================================================
#
#         FILE:  autoftp.pl
#
#        USAGE:  ./autoftp.pl  
#
#  DESCRIPTION:  Download data from ftp automatically
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Will
#      COMPANY:  CNNDC 
#      VERSION:  1.0
#      CREATED:  11/18/2010 03:06:49 AM
#     REVISION:  ---
#===============================================================================

# use strict;
use warnings;
use Net::FTP;
use Term::ReadKey;

die "Usage:nt$0  [user]@Server:filen" if (!scalar @ARGV);
my ($user,$password,$server,$file) = qw#anonymous [email?protected]#;
my $debug=0;

($server,$file) = $ARGV[0] =~ /@?([wd]+):([wW]+)/;
if ( $ARGV[0] =~ /([wW]+)@/ ) {
	$user = $1;	
	print "Input password: ";
	ReadMode 2;
	chomp($password=<STDIN>);
	ReadMode 0;
}
# print "$user,$filen";

my $ftp = Net::FTP->new("$server",Debug => $debug) 
	or die "Can NOT connect to $server. [email?protected]";
$ftp->login("$user","$password") 
	or die "Can NOT loggin. ",$ftp->message;
$ftp->binary()
	or die "Can NOT set binary mode. ",$ftp->message;
$ftp->get("$file") 
	or die "get $file failed. ",$ftp->message;
$ftp->quit;

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!