my ($addr, $usr, $pwd, $ascii, $active, $timeout) = @_;
my $ftp;
# Set up new FTP with active mode and user-specified timeout...
if ($active and $timeout)
{
$ftp = Net::FTP -> new ($addr, Passive => 0, Timeout => $timeout)
or die "Failed to connect to FTP (w/ active, timeout): $addr";
}
# Login to new FTP
$ftp -> login ($usr, $pwd)
or die "Failed to login to FTP: " . $ftp->message;
# Set ASCII or binary transfer modes
if ($ascii) { $ftp -> ascii(); }
else { $ftp -> binary(); }
print "LOGIN: $addr\n";
return $ftp;
}
有人可以解释一下上面的操作吗?它登录到ftp然后返回它?它实际上返回了什么?这是用于上传还是下载?ftp请求返回什么(Perl)
FTP并不是真正面向请求的,它基于一个连接,然后你发送命令。您发布的代码似乎只是设置了一个连接以供进一步使用。 – millimoose