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