Aide net:telnet

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:

---

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

Et en passant par un

Code:

---

1 2 3

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

---

Que cela te donne t-il ?

Citation:

---

Envoyé par 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:

---

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:

  ---

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

  ---

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

  ---

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

  ---

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

Code:

---

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

---

c'est pas mieux !
et sur la commande

Code:

---

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

---

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

Essaie :

Code:

---

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

---

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:

---

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

---

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

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