Net :: SCP/Net :: SCP :: Expect - 如何处理密码与密钥认证

Question

我有一个脚本可以在不同的客户端上运行，并且需要SCP文件到不同的主机。根据客户端&服务器的组合，我可能需要使用密码认证或公钥认证。我无法预先知道使用哪一个。

有2个CPAN库SCP，我使用：

• 的Net :: SCP：可与公钥认证只
• 的Net :: SCP ::期待：作品只有
密码认证

问题是这两个库都不适用于这两种认证，我不知道哪一个可以提前使用。你知道有两种认证方案可以使用吗？

Answer 1

尝试之一，故障转移到另一个：

#! /usr/bin/perl 

use warnings; 
use strict; 

use Net::SCP qw/ scp /; 
use Net::SCP::Expect; 

my @hosts = qw/ host1 host2 host3 /; 
my $user = "YOUR-USERNAME-HERE"; 
my $pass = "PASSWORD-GOES-HERE"; 
my $file = "file-to-copy"; 

foreach my $host (@hosts) { 
    my $dest = "$host:$file"; 

    my $scp = Net::SCP->new($host, $user); 
    unless ($scp->scp($file => $dest)) { 
    my $scpe = Net::SCP::Expect->new; 
    $scpe->login($user, $pass); 

    local $@; 
    eval { $scpe->scp($file => $dest) }; 
    next unless $@; 

    warn "$0: scp $file $dest failed:\n" . 
     "Public key auth:\n" . 
     " $scp->{errstr}\n" . 
     "Password auth:\n" . 
     " $@\n"; 
    } 
} 

Answer 2

试验网:: OpenSSH的