CPAN Telnet

Version imprimable

22/03/2005, 13h42
Slippers

CPAN Telnet
Bonjour a tous

Bon je viens de lire la dock de cpan

alors pour envoyer une commande a un switch j utilise la commande suivante :
Code:

1 2 $telnet->print ('');
ms pour qu elle fonctionne je suis obliger de mettre un waitfor
Code:

1 2 @test=$telnet->waitfor(String => '#');
j aimerai que le waitfor recupere n importe quelle caractere, donc attende n importe kwa comme caractere,...que je sois pas limite au '#'
Quelqu un sait m aider sur ce coup ?
qu est ce que je dois faire pour ca ?
22/03/2005, 14h15
Slippers
J ai trouve quelque chose de mieux deja avec la commande
Code:

1 2 @test=$telnet->waitfor("/>|#/");
suffit de specifier les caracteres qu on peut trouver :o
C est la meilleur solutions ?
22/03/2005, 14h19
2Eurocents

Euh ... Avec quel module fais tu ça ?

Net::Telnet
ou
Net::Telnet::Cisco ?

Par ailleurs, il me semble que le waitfor te permet d'attendre que le switch te rende la main avec son prompt ... Il me paraît imprudent d'attendre n'importe quoi comme caractère. D'autant que le prompt est différent selon le mode d'exploitation du switch (interrogation de conf, ou configuration proprement dite).

Alors ... peux tu nous en dire plus ?

[Edit]Visiblement, tu as progressé sur le problème pendant que je tapais ma réponse ...[/Edit]
22/03/2005, 15h34
Slippers

j utilise net:telnet

j essaye de faire un hyper terminal en perl pour prendre la main donc je suis oblige de recupere n importe quel caractere, afin de visualiser ou j en suis ds le switch =)
22/03/2005, 15h37
Slippers

note hyper terminal est peut etre deja programmer en perl lol...

J ai pt etre dit une connerie :p mdr

Bon voila je vous montre mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
#!/usr/bin/perl -w
use Net::Telnet ();
 
sub QuitterApplication
{
    exit(0);
    }
 
 
my ($hostname, $port, $telnet); 
$hostname="172.16.40.3"; 
$port="23"; 
$timeout_time=3;
my ($forecast, $t);
$telnet = new Net::Telnet ( Timeout=>$timeout_time, Errmode=>'die'); 
$telnet->open(Host => $hostname, Port => $port);
 
my $prematch=();
my $match=();
my $x=0;
my $reponse=();
 
($prematch,$match)=$telnet->waitfor("/>|#|%|:/");
print "$prematch$match";
$prematch=();
while ($x != 1){
     $reponse=<STDIN>;
     chop $reponse;
 
     if ($reponse eq "quit"){exit (0)}
     $telnet->print("$reponse");
     ($prematch,$match)=$telnet->waitfor("/>|#|%|:/");
     $prematch=~s/$reponse//;
     $reponse=();
     print "$prematch$match";
     if ($match =~/%/){
         ($prematch,$match)=$telnet->waitfor("/>|#|%|:/");
         print "$prematch$match";
        }
    }

alors j ai un probleme qd je fais des sh run par exemple, on dirait qu il peut pas recuperer la suite, vous pouvez m expliquer pq et comment resoudre le probleme s il vous plait ?

24/03/2005, 13h50
Slippers

Bon personne ne sait m aider :(
24/03/2005, 14h07
Mr6

Slt !

J'y connais pas grand chose en routeur, mais tu ne devrais pas t'authentifier quand tu fais un telnet dessus ? Je ne vois nulle part de ligne $telnet->login(...) ?

@+
Mr6
24/03/2005, 14h19
Slippers

non pas besoin de s authentifier, il peut juste y avoir deux trois password a rentrer ms avec un $telnet->print("") c bon.

Quelqu un peut m explique pq qd j utilise un @output=$telnet->cmd("sh run") ca fonctionne pas ?

Comment on utilise cette commande ?
24/03/2005, 14h29
gd_dev

Bonjour,

Veuillez consulter le document suivant. http://rcswww.urz.tu-dresden.de/CS/perl/modules/Telnet/Telnet.html

Bonne chance
24/03/2005, 16h00
Slippers
Bon j ai lu le site j ai mit le
Code:

1 2 $telnet= new Net::Telnet(Prompt=>"/.*\[#>]\$/i",Timeout => 10, Errmode => "return");
puis apres j utilise le cmd
Code:

1 2 @output=$telnet->cmd($command);
Donc $command envoie une ligne et $output recupere le resultat apres l envoie.

Le probleme est que le outout est vide. Qu est ce uqe j ai oublie ?
25/03/2005, 12h26
Jeh

A première vue, je dirais que ton prompt n'est pas bon. Je te conseille d'utiliser : /[#|>]/. Ici, le 'i', ne te sert à rien puisque que tu n'as pas de caratère alphanumérque dans ton expression régulière.
Sur Cisco, si on ne prends pas en compte les différents prompt du 'configure terminal', il n'y a que deux prompts 'généraux' possibles : '>' pour le mode standard et le '#' pour le mode enable.
C'est donc tout ce dont tu dois t'occuper.
Si tu as des soucis, je pourrais essayer ton code, j'ai pas mal d'eqt Cisco sous la main.
:wink:
25/03/2005, 15h11
Slippers
Tu avais raison ca deconne au niveau du prompt =). Donc si j utilise
Code:

1 2 Prompt=>"/[>|#]/"
il recupere bien quelque chose dans ds le output, le probleme c qu il ne recupere pas dutout le sh run avant, il chope juste la derniere ligne donc le nom du router ou du swtich.
Il y a qd meme un moyen de prendre tout ce qui est envoye avant la fin.
Je dois creer un prompt qui detecte tous les caracteres ? :o
Je comprend pas tres bien cette commande cmd. Je pensais qu elle recuperait tous ce qui est envoyé jusqu a ce qu il arrive au prompt.
29/03/2005, 11h24
Slippers

help m en sort tj pas
30/03/2005, 09h53
Slippers

Voila quelqu un m a donner la solution a mon probleme, je vais qd meme expliquer le pourquoi du comment. Le programme fonctionne bien en soit ca vient a bugger lorsque l on fait un sh run parce qu il y a des --more-- lors du defilement des donnee.

Pour enlever le more il il faut envoyer au router ou au switch la commande "term len 0"
30/03/2005, 12h17
2Eurocents

Au risque (assumé) de paraître lourd, tu t'es peut-être un peu fourvoyé en voulant utiliser Net::Telnet pour dialoguer avec ton switch, dans la mesure où un module plus spécifique existe :

Net::Telnet::Cisco gère la communication en traitant correctement le --more-- ... et c'est une solution qui avait été envisagée dès le 3e post de cette enfilade ...

Mais le principal est que tu aies résolu ton problème !