Discussion :

[calimero642]

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

Voici mon code

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
 
 
#!/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

[Mr6]

est ce que :

Code :

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

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

donnerait quelque chose de satisfaisant ?

[jean tof]

tu peux faire comme cela :

Code :

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

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