Discussion :

[Slippers]

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 :

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

1
2
 
$telnet->print ('');

ms pour qu elle fonctionne je suis obliger de mettre un waitfor

Code :

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

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 ?

[Slippers]

J ai trouve quelque chose de mieux deja avec la commande

Code :

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

1
2
 
@test=$telnet->waitfor("/>|#/");

suffit de specifier les caracteres qu on peut trouver :o
C est la meilleur solutions ?

[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]

[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 =)

[Slippers]

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

J ai pt etre dit une connerie :p mdr

[Slippers]

Bon voila je vous montre 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
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 ?

[Slippers]

Bon personne ne sait m aider

[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

[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 ?

[gd_dev]

Bonjour,

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

Bonne chance

[Slippers]

Bon j ai lu le site j ai mit le

Code :

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

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

puis apres j utilise le cmd

Code :

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

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 ?

[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.

[Slippers]

Tu avais raison ca deconne au niveau du prompt =). Donc si j utilise

Code :

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

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.

[Slippers]

help m en sort tj pas

[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"

[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 !