IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Programmation et administration système Perl Discussion :

telnet en perl : simuler entrer pour recuperer la suite des donnee


Sujet :

Programmation et administration système Perl

  1. #1
    Membre du Club
    Profil pro
    Étudiant
    Inscrit en
    Décembre 2006
    Messages
    47
    Détails du profil
    Informations personnelles :
    Âge : 40
    Localisation : Algérie

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2006
    Messages : 47
    Points : 52
    Points
    52
    Par défaut telnet en perl : simuler entrer pour recuperer la suite des donnee
    Salut a tous
    j'ai crée un petit script avec perl pour connecter a un switch et récupérer la configuration courante du switch huawei .j'ai arriver a me connecter et récupérer des ligne jusqu'à -- More -- après dans le switch je doit clique espace ou bien entrer pour récupérer la suite de la configuration
    la question : est qu'il y a une ligne de commande ou bien un caractère qui simule le bouton entrer ou espace pour récupérer la suite de la configuration
    Merci pour votre aide

  2. #2
    Expert éminent
    Avatar de Jedai
    Homme Profil pro
    Enseignant
    Inscrit en
    Avril 2003
    Messages
    6 245
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Avril 2003
    Messages : 6 245
    Points : 8 586
    Points
    8 586
    Par défaut
    Tu peux juste faire un print(), en fait le plus propre serait sans doute d'utiliser print() pour la commande puis de répéter waitfor() avec le prompt approprié, quelque chose comme :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    $tn->put("command");
    my $prompt = $tn->prompt();
    my ($prematch, $match, $result);
    do {
      $tn->print();
      ($prematch, $match) = waitfor(Match => "$prompt|-- More --");
      $result .= $prematch;
    } while( $match eq "-- More --");
     
    print $result;
    (la commande sur le switch n'a pas une option pour renvoyer tout d'un coup plutôt ? Ce serait plus propre et plus simple)

    --
    Jedaï

Discussions similaires

  1. probleme pour recuperer le chemin du dossier courant
    Par HoB dans le forum API standards et tierces
    Réponses: 8
    Dernier message: 11/08/2007, 11h22
  2. Réponses: 2
    Dernier message: 08/08/2007, 08h57
  3. Probleme pour recuperer le chemin de donnees
    Par blondelle dans le forum C++Builder
    Réponses: 15
    Dernier message: 29/06/2007, 16h56
  4. [perl] Caractères interdit pour la clé d'un hash ?
    Par LE NEINDRE dans le forum Langage
    Réponses: 2
    Dernier message: 24/02/2006, 08h57
  5. Réponses: 4
    Dernier message: 24/09/2005, 09h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo