PERL SFTP 使用系统，无法安装 SFTP 模块

Question

我对 perl 和 stackoverflow 有点陌生。如果我可以使用更熟悉的语言，我会，不幸的是，由于某些情况我不能。在此先感谢您的帮助。

未安装模块：Net::SFTP、WWW::CURL、Net::SSH2、Net::SFTP::Foriegn 安装的模块：Net::FTP

我无法安装模块。

无法使用 Net::FTP 尝试了默认端口和端口 22，带有用户名和密码。尝试连接时，我从另一个盒子的日志中得到的只是“没有收到来自 xx.xx.xx.xx 的标识字符串”也无法在命令行中使用 FTP，超时。

$ftp = Net::FTP->new($box,Port=>22, Debug => 0)
or die print "Error: Cannot connect";
$ftp->login($userBox,$passBox)
or die print "Error: Cannot login";
$ftp->cwd()
or die print "Error: Cannot change to Root";
$ftp->cwd($dir)
or die print "Error: Cannot change to selected directory";
if($copyfile ne "" && $dir ne "")
{
$ftp->put($copyfile, $copyfile);
}
$ftp->quit();

我可以通过 linux 命令行手动使用 SFTP，而不是 FTP，所以我一直在尝试使用系统命令将 SFTP 导入另一个框。另一个盒子的日志只是说“连接由 xx.xx.xx.xx 关闭”

system('sftp '.$userBox.'@'.$box.' ENDOFINPUT'
.$passBox.'ENDOFINPUT
cd ../../../
put '.$filename.' '.$dir.'
exit
ENDOFINPUT');

如果有人知道如何帮助我解决我的问题，那就太好了:)

Answer 1

让我们从另一个方向来解决这个问题......当你说你“无法安装模块”时，仅仅是因为你没有 root 权限吗？如果是这种情况，您可以改为install them locally under a user account。

如果机器没有互联网连接，甚至无法在本地安装它们，您可以使用相同的技术将它们安装在不同的机器上，然后 gzip 您安装它们的整个本地目录并将它们复制到目标机器，并添加一个“use lib”语句以从您的脚本中获取它们。

Answer 2

您确定 $passBox 等效项在 shell 上有效吗？

您应该能够使用密钥对设置无密码连接，这将使该问题很快消失。