Question

#!/usr/local/bin/perl
use strict;
use warnings;
system("cd $PATH
/usr/bin/sftp mysite.com <<!EOF
put sample.txt
bye
!EPF");

当我责备应用程序时，它会询问密码，如何在代码本身中传递用户/密码，

我想要的是，我的脚本不应该问密码。我想在代码本身中设置用户/密码。用户命令在sftp中不起作用如何制作它。

Answer 1

有了这么模糊的问题，很难给出更多答案......

您是否尝试过Net::SFTP模块？

编辑：

基于对问题的编辑 - 尝试使用Net :: SFTP :: Foreign

    use Net::SFTP::Foreign;
    use warnings;
    use strict;

    my $host = "xxx.xxx.xxx.xxx";
    my $sftp = Net::SFTP::Foreign->new($host, user => 'user', password => 'pass');
    $sftp->error and die "Something bad happened: " . $sftp->error;
    $sftp->put("sample.txt", "/home/test/test") or die "put failed: " . $sftp->error;

您应该收到更有意义的错误消息，然后您可以从那里获取它。

Answer 2

您可以尝试其他模块，例如Net::SFTP::Foreign或Net::SSH2的SFTP功能。

如何使用Perl的linux命令连接到sftp

2 个答案: