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

Question

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

$ftp=net::ftp->新建($box,port=>22,Debug=>0)
或die print“错误：无法连接”；
$ftp->登录($userbox,$passbox)
或die print“错误：无法登录”；
$ftp->CWD()
或die print“错误：无法更改为根”；
$ftp->CWD($dir)
或die print“错误：无法更改为选定目录”；
如果($copyfile ne“&&$dir ne”）
{r>}
$FTP->quit（）；

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

系统('sftp'.$userbox.'@'.$box.'endoFinput'
.$passbox.'endoFinput
光盘../../../
put'.$filename.''.$dir.'
退出
endoFinput')；

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

Answer 1

让我们从另一个方向来解决这个问题...当你说你“无法安装模块”，那仅仅是因为你没有root权限吗？如果是这种情况，您可以在本地的一个用户帐户下安装它们。

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