Net::ssh::perl authentifizierungs-problem - #103461 (Netzwerkprogrammierung und Netzwerke mit Perl)

crest

2007-12-05 09:43

User since
2007-12-04
5 Artikel
BenutzerIn
[default_avatar]

Vielen Dank für deine Antwort :)

Version von Net-SSH-Perl: 1.30

Code (perl): (dl )

#!/usr/bin/perl
use Net::SSH::Perl;
use strict;
use warnings;

my $host = "hostname";
my $pass = "passwort";
my $user = "benutzername";
my $ssh = Net::SSH::Perl->new($host, protocol => "1");
$ssh->login($user, $pass);

# test-command
(my $out, my $err, my $exit) = $ssh->cmd("ls -l");
print ("$out");
print ("$err");
print ("$exit");

use strict, use warnings eingebaut und bei 'my' bei $out, $rr $exit hinzugefügt (da gabs ne warnung: Global symbol "$out" requires explicit package name - für die beiden anderen vars auch.

2. Ich weiß leider nicht, wie ich das prüfen kann (und was genau ist das ssh-handle? das objekt, das bei
"Net::SSH::Perl->new($host)" zurück gegeben/erschaffen wird? )

3. Eigentlich weiß ich es nicht, aber auch wie bei 2. hab ich leider ka, wie ich das nachprüfen kann.

Ja, ich hab erst mit proggen angefangen, deswegen bin ich noch etwas unerfahren :(
Die Doku hatte ich mir auch schon vorher durchgelesen, von da hab ich ja eigentlich auch den code kopiert:

Quote
use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);