Perl & Telnet Résolu/Fermé

Question

Bonjour à tous,

Je rédige actuellement un script en Perl qui permettra de me connecter à un switch en Telnet.
La connexion se passe très bien.
$t = new Net::Telnet (Timeout => 3000,ErrMode => 'return', Prompt => $prompt);
$t->open(Host=>$server);

j'essaie ensuite de passer cette commande
@lines = $t->cmd(String   =>"ippstat list all");

Le problème est que je n'arrive pas à récupérer la totalité du résutat... 
En gros @lines va contenir uniquement 500 lignes au lieu des 4000 qui sont renvoyées si je tape cette commande en dehors du script...

Quelqu'un saurait-il pourquoi ?
Est-ce une question de buffer ? Et si oui comment y remédier ?

Me bible actuelle est celle la, si vous en connaissez d'autres...

Merci d'avance,

Vindicien

dubcek · Answer

hello
si c'est un Cisco, pour qu'IOS n'arrête pas l'affichage en "fin d'écran", il faut entrer
set term length 0
essaye, peut-être que ...

vindicien · Answer

Salut salut !! 

Merci de venir à ma rescousse !! Malheureusement c'est pas du Cisco c'est de l'Alcatel... Mais je vais creuser dans ce sens, en effet c'est possible que la problème vienne de là !! 
Ce qui est bizarre c'est que la commande déconne uniquement dans le script... 

Enfin merci pour cette piste dubcek !!!

Bonne journée

vindicien · Answer

Je n'arrive toujours pas à solutionner ce problème...
D'autres idées messieurs dames ?

dubcek · Answer

augmenter la taille du buffer ?
max_buffer_length - maximum size of input buffer
        $len = $obj->max_buffer_length;
        $prev = $obj->max_buffer_length($len);
    This method designates the maximum size of the input buffer.

vindicien · Answer

Merci pour ton aide dubcek !

Au final j'ai préféré utiliser un script en shell avec des expect. Il m'a fallu quelques minutes pour réaliser le script dont j'avais besoin. Je vais en rester la puis je reviendrai sur ce problème en Perl dès que j'ai un peu de temps à perdre.

J'en profiterai pour tester ta méthode pour la taille du buffer et te donnerai des nouvelles !

Bonne journée,

Vind'

Perl & Telnet

5 réponses

Discussions similaires