2

我不知道我是否Net::SSH::Perl成功安装了模块，但我似乎无法运行以下代码：

my $ssh = Net::SSH::Perl->new($remote_host);
$ssh->login($username, $password);
print "login done", "\n";
my ($out, $err, $exit) = $ssh->cmd($cmd);
print "$out", "\n";

我可以登录，但无法打印$out. 我不断收到此错误：

Use of uninitialized value $out in string at test_ssh.pl line 28.

第 28 行是指print "$out", "\n";.

我在 Cygwin 上运行此代码。我现在该怎么办？

编辑：我运行时收到以下错误消息my $ssh = Net::SSH::Perl->new($remote_host, options => ["Debug yes"]);：

Use of uninitialized value $out in string at test_ssh.pl line 29 (#1)
    (W uninitialized) An undefined value was used as if it were already
    defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
    To suppress this warning assign a defined value to your variables.

    To help you figure out what was undefined, perl will try to tell you the
    name of the variable (if any) that was undefined. In some cases it cannot
    do this, so it also tells you what operation you used the undefined value
    in.  Note, however, that perl optimizes your program and the operation
    displayed in the warning may not necessarily appear literally in your
    program.  For example, "that $foo" is usually optimized into "that "
    . $foo, and the warning will refer to the concatenation (.) operator,
    even though there is no . in your program.

EDIT2：这是我的完整代码

use strict;
use warnings;
use Net::SSH::Perl;

my $remote_host = '<host ip address>';
my $password    = 'pass';
my $username    = 'user';
my $cmd         = 'copy run tftp:<my own ip address>';

warn "Starting SSH Services:...";
my $ssh = Net::SSH::Perl->new($remote_host, debug => 1);
print "done", "\n";

warn "Starting Login:...";
$ssh->login($username, $password);
print "login done", "\n";

warn "Starting command:...";
#$ssh->cmd($cmd);
#my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
my ($out, $err, $exit) = $ssh->cmd($cmd);
print "$out", "\n";

"print "$out","\n";" 上的错误信息 线：

<Computername>: channel 1: new [client-session]
<Computername>: Requesting channel_open for channel 1.
<Computername>: Entering interactive session.
<Computername>: Channel open failure: 1: reason 4:
Use of uninitialized value $out in string at test_ssh.pl line 29.

最后编辑：我决定使用 Net::Appliance::Session 通过 SSH 登录到网络设备。它比 Net::SSH::Perl 更容易使用。

4

3 回答 3

1

请显示更多您的代码。的价值是$cmd多少？

请注意，该login方法不执行登录：它仅存储为每次cmd呼叫建立连接时要使用的用户名和密码。

启用调试消息的正确方法是

my $ssh = Net::SSH::Perl->new($remote_host, debug => 1);

这将为您提供来自该cmd方法的跟踪信息，除其他外

Sending command: xxx
Entering interactive session.

并且应该给你一些关于出了什么问题的线索。

您的调试输出显示了问题。细看SSH2.h，打开失败原因4是SSH2_DISCONNECT_HOST_AUTHENTICATION_FAILED。您的用户名和密码不正确。

于 2012-04-10T05:53:36.677 回答
1

Net::SSH::Perl确实支持通过用户名/密码登录，我有一个工作示例，我刚刚让它工作。我使用上面的代码并取出双引号（“”）并使用单引号（''）代替。并且“debug => 1”适用于在出现问题时调试代码。如果设置了调试选项，它将在您尝试登录时向您显示信息。

我正在连接到基于 Windows Powershell 的 Win32-OpenSSH SSHD 服务器，非常类似于支持 SFTP 的 BSDLinux SSHD 服务器。支持相同的基于 Linux 风格的连接。

我整天都在尝试所有其他 SSH 模块。希望有人可以使用此代码来运行命令并在需要时获取输出。

您可以使用“cpan -i module-name”安装 Net::SSH::Perl

 use Net::SSH::Perl;

my $host = 'testmachine.acme.local';     #Or just IP Address
my $user = 'domain\username';            #Or just username
my $pass = 'Password@123';
my $cmd = 'dir C:\\Windows\\'; 

use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new($host, debug => 1);
$ssh->login($user, $pass);
my ($out, $err, $exit) = $ssh->cmd($cmd);
print "$out", "\n";
于 2018-10-11T20:40:42.197 回答
0

Net::SSH::Perl 不支持仅通过交互式密码输入或公钥通过用户名/密码登录。有关更多信息，请参阅此帖子。

http://www.perlmonks.org/?node_id=590452

于 2013-01-10T09:39:18.057 回答