Thread Keine SSH Verbindung (16 answers)
Opened by mollilinux at 2010-02-22 16:55

Linuxer
 2010-02-22 19:17
#133463 #133463
User since
2006-01-27
3891 Artikel
HausmeisterIn

user image
Hi,

zunächst mal würde ich strict und warnings einbauen und auch später in jedem weiteren Perl-Skript verwenden. Siehe auch: Wiki:UseStrict

Ich habe mir mal ein Testskript zusammengestellt und kann aktuell Dein Problem nicht nachvollziehen.
Bei Verwendung korrekter User-Informationen funktioniert das Skript wie gewünscht.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;
use Net::SSH::Perl;

#> global variables
#> ----------------------------------------------------------------------------

my $ssh = Net::SSH::Perl->new( '127.0.0.1', debug => 0 );


#> main script
#> ----------------------------------------------------------------------------

# hier muss etas der Art "Kontrolle: Net::SSH::Perl" ausgegeben werden
# (der Modulname kann variieren, sollte aber egtl. Net::SSH::Perl beinhalten)
printf "Kontrolle: %s\n", ref( $ssh );

# hier korrekte Userdaten angeben, sonst gibt's "Permission Denied"!
$ssh->login( 'user', 'pass' );

my ( $out, $err, $rc ) = $ssh->cmd("/bin/ls -l");

$err = '' if !defined $err;

print <<RESULTAT;
EXITCODE: $rc

ERROR:
$err
OUTPUT:
$out

RESULTAT

__END__
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Keine SSH Verbindung