Net::SSH2 Skript (gelöst) - #153374 (Netzwerkprogrammierung und Netzwerke mit Perl)

Jejerod

2011-10-21 11:09

User since
2011-10-12
16 Artikel
BenutzerIn
[default_avatar]

2011-10-20T09:12:08 cohama
Diese Fehlermeldung erscheint stets.
connect(): Die Ressource ist zur Zeit nicht verfügbar

Du kannst keinen channel anfordern bevor du die Verbindung aufgebaut und dich eingeloggt hast. Tust du das, kommt es zum obigen Fehler.

Code (perl): (dl )

$ssh->auth_password($ssh_user,$ssh_pass);
if ($ssh->auth_ok()) {
        my $session = $ssh->channel();
        $session->exec('uname -a');
        while ($session->read(my $answer,1024)) {
                print $answer;
        }
        $session->close();
        $ssh->disconnect();
}
else {
        print STDERR "authentication failed\n";
}