perl sftp 上传文件

要使用Perl进行SFTP文件上传，你可以使用Net::FTP模块或Expect模块。

如果你选择使用Net::FTP模块，你可以使用以下代码进行文件上传：

my $ftp = Net::FTP->new($Server, Passive => 0, Debug => 1, Timeout => 10) or die "Could not connect.\n";
$ftp->login($User, $Password) or die "Could not login.\n";
$ftp->put($local_file, $remote_file) or die "Could not upload file.\n";
$ftp->quit();

其中，$Server是SFTP服务器的地址，$User和$Password是登录SFTP服务器的用户名和密码，$local_file是本地文件的路径，$remote_file是远程服务器上保存文件的路径。

如果你选择使用Expect模块，你可以使用以下代码进行文件上传：

use Expect;
my $ssh = Expect->new;
my $timeout = 10;
$ssh->raw_pty(1);
$ssh->spawn("sftp $User\@$Server") or die "spawn failed!\n";
$ssh->expect($timeout, \[qr/continue connecting (yes\/no)?/, sub{$ssh->send("yes\n"); exp_continue;}\],
                    \[qr/Password:/, sub{$ssh->send("$Password\n"); exp_continue;}\],
                    \[qr/sftp>/, sub{$ssh->send("put $local_file $remote_file\n");}\]);
$ssh->expect(86400, "sftp>") or die "not see sftp tip for exit!";
$ssh->send("exit\n");
$ssh->soft_close();

其中，$Server是SFTP服务器的地址，$User和$Password是登录SFTP服务器的用户名和密码，$local_file是本地文件的路径，$remote_file是远程服务器上保存文件的路径。

请注意，使用Expect模块进行SFTP文件上传需要先安装Expect模块和其依赖的IO::Tty模块。你可以从http://www.cpan.org/下载对应的安装包，并按照安装说明进行安装。
#### 引用[.reference_title]
- *1* [Perl脚本学习经验（三）--Perl中ftp的使用](https://blog.csdn.net/weixin_42138703/article/details/116879481)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
- *2* *3* [Perl脚本学习经验（四）--Perl中sftp的使用](https://blog.csdn.net/weixin_30621711/article/details/98260503)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]