Discussion :

[moook]

Code :

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

1
2
3
4
my $ssh = Net::SSH::Perl->new($host,,protocol=>'1,2');
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print $stdout;

Voici mon code qui me permet de me connecter sur une machine en ssh et d'effectuer un zcat (identique à la cmd cat pour les archives .gz) sur des fichiers.
J'aimerai afficher par exemple les 3 premières lignes de ma sortie standard.
Quelqu'un pourrait m'indiquer la route à suivre pour faire ça ?

Merci d'avance.

[Jedai]

Il te suffit de split()er $stdout selon les fins de lignes, puis d'afficher les trois premiers éléments :

Code :

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

1
2
3
4
5
my $ssh = Net::SSH::Perl->new($host,,protocol=>'1,2');
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
@out = split /\n/, $stdout;
print (join "\n", @out[0..2]);

--
Jedaï