Discussion :

[gege_76]

Message édité par sinarf, pensez au balises code, merci.
-----------------------------


Bonsoir,
j'ai un petit pobleme avec le module Net::Telnet!
je n'arrive pas a recuperer le resultat de ma commande !

Code :

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

1
2
3
4
5
6
my $telnet = new Net::Telnet(  Timeout=>5); 
$telnet->open(Host=>$server );
$telnet->login($username, $password); 
@results = $telnet->cmd("cd ;ls");
$telnet->close; 
print @results;

et j'ai rien dans @results par contre quand j'utilise option Input_log
il ecrit bien le resultat dans le fichier !
Une idée ?
Merci

[yinyang]

Et en passant par un

Code :

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

1
2
3
foreach (@results) {
   print _$."\n";
}

Que cela te donne t-il ?

[Jeh]

Message édité par sinarf, pensez au balises code, merci.
-----------------------------


Bonsoir,
j'ai un petit pobleme avec le module Net::Telnet!
je n'arrive pas a recuperer le resultat de ma commande !

Code :

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

1
2
3
4
5
6
my $telnet = new Net::Telnet(  Timeout=>5); 
$telnet->open(Host=>$server );
$telnet->login($username, $password); 
@results = $telnet->cmd("cd ;ls");
$telnet->close; 
print @results;

et j'ai rien dans @results par contre quand j'utilise option Input_log
il ecrit bien le resultat dans le fichier !
Une idée ?
Merci

C'est normal, tu n'as pas défini de prompt !
Le prompt est le caractère qui délimite tes commandes et qui permet à la méthode "cmd" de savoir quand la commande que tu as passé est terminée.

Pour ce faire, tu as deux possibiliés :

• soit utiliser un prompt générique :
  

  Code :

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

   my $telnet = new Net::Telnet(  Timeout=>5, ErrMode => 'return', Prompt => '/>/');

• soit utiliser un prompt différent pour chaque commande :
  

  Code :

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

  @results = $telnet->cmd(String => "cd ;ls", Prompt => '/>/');

[gege_76]

j'ai rajouter un prompt générique :
sur

Code :

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

1
2
 
 my $telnet = new Net::Telnet(  Timeout=>5, ErrMode => 'return', Prompt => '/$/');

c'est pas mieux !
et sur la commande

Code :

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

1
2
 
 @results = $telnet->cmd(String => "cd ;ls", Prompt => '/$/');

non plus !
j'ai toujours rien dans @results !

[Jeh]

Essaie :

Code :

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

 my $telnet = new Net::Telnet(  Timeout=>5, ErrMode => 'return', Prompt => '/\$/');

[gege_76]

C'est bon j'ai trouvé !
En fait comme le script tape sur plusieur OS unix j'avais un resultat ou pas selon l'OS, j'ai donc defini le prompt en fonction des OS

Code :

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

1
2
my $prompt ='/.*[\$#:>] *$/';
my $telnet = new Net::Telnet(  Timeout=>5, ErrMode => 'return', Prompt => $prompt);

Merci Jeh pour la piste ;-)
Maintenant ca marche super !

[stephnane]

Et quand en guise de prompt, il n'y a rien, que mettre ????

Parce que j'ai un peu le même souci, mais un collègue a codé la partie serveur ...

Merci

Steph