Discussion :

[ramislebob]

voici le code (normal il me semble...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use strict;
use warnings;
use Net::SSH::W32Perl;
use vars qw/
$host $port $user $pass
$ssh $stdout $stderr $exit $command
/;
 
$host = "@ip";
$port = "22";
$user = "myLog";
$pass = "myPass";
 
$ssh = Net::SSH::W32Perl->new ($host, port => $port, debug => 1)|| die "Error connexion SSH $host:$port ($!)\n";
$ssh->login($user,$pass) || die "Error Login/Pass $user:$pass ($!)\n";
$command='ls -al';
($stdout, $stderr, $exit) = $ssh->cmd ($command) || die "Error command $command ($!)\n";
print "# $command\n$stdout";
exit 0;

voici le log (mode debug) :

plantage ligne 17 : $ssh->login :s
pourkoi il me met qu'il teste une empty user-authentification request :s
ça peut être à cause de ça que ça plante non ?

PS : kelk1 sait comment faire pour capturer le texte de la cmd ?

[scaleo]

Essaie de rediriger STDOUT comme sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open(STDOUT, ">Log.txt" ) or die "cannot redirect stdout output in log file : $!\n";