module net::telnet

Bonsoir a tous,
je cherche a realiser une commande et recuperer ce qu 'elle ressort grace au module NET::Telnet.

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/perl   use strict; use Net::Telnet; use CGI qw/:standard :html3 :netscape escape unescape/; use CGI::Carp qw/fatalsToBrowser/;   my $username="toto"; my $passwd="tata"; my $HOST="10.0.0.6"; print header; my $t = new Net::Telnet (Timeout=>undef) or die "Can't connect:$!"; $t->open(Host=>$HOST); $t->login($username, $passwd); my @lines = $t->cmd(String =>"show power inline",Prompt=>'/#/'); $t->close; print join(' ',@lines);

---

Je voudrais savoir pourquoi le prog ne s arrete pas ? et ou je peux recuperer le resultat de ma commande show power inline !!!!

Merci d avance
Jules

est ce que :

Code:

---

1 2	print while $t->cmd(String =>"show power inline",Prompt=>'/#/');

---

donnerait quelque chose de satisfaisant ?

tu peux faire comme cela :

Code:

---

1 2	$t->print("show power inline") ($retour) = $t->waitfor('/#/');

---

Donc la commande 'show power inline' est envoyée et attente du caractère '#' pour continuer le script. $retour contient le résultat de la commande envoyée