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

Langage Perl Discussion :

[langage] Se positionner là où on veut dans un fichier


Sujet :

Langage Perl

  1. #1
    Membre à l'essai
    Inscrit en
    Février 2004
    Messages
    31
    Détails du profil
    Informations forums :
    Inscription : Février 2004
    Messages : 31
    Points : 17
    Points
    17
    Par défaut [langage] Se positionner là où on veut dans un fichier
    Bonjour

    J'ai un fichier de ce type :

    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
     
    no spanning-tree vlan 590
    no spanning-tree vlan 599
    !
    !
    interface FastEthernet0/1
     switchport access vlan 374
     no ip address
     no snmp trap link-status
    !
    interface GigabitEthernet0/1
     switchport trunk allowed vlan 1,2,100-170,172-174,176,179,180,1002-1005
     switchport trunk allowed vlan add 183-185,187,188,196-198,200-799,1002-1005
     switchport mode trunk
     no ip address
     storm-control broadcast level 5.00
     storm-control multicast level 5.00
    !
    et je veux récupérer les noms des interfaces SEULEMENT SI l'interface est une interface "trunk" cad si "switchport mode trunk" apparait dans le bloc qui définit la conf de l'interface.
    Pour cela j'ai donc besoin de me positionner à la ligne suivante ou sur une ligne particulière du bloc lorsque la ligne courante est "interface GigabitEthernet0/1" par ex.

    Je ne m'en sors pas avec les fonctions SEEK et TELL... comment faire ?
    Help !

    merci

  2. #2
    En attente de confirmation mail
    Inscrit en
    Mars 2002
    Messages
    67
    Détails du profil
    Informations forums :
    Inscription : Mars 2002
    Messages : 67
    Points : 75
    Points
    75
    Par défaut
    quelque chose dans le genre:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    my @tab_interface = ();
    my $interface = '';
    open (MON_FICHIER_HTML, "mon_fichier.txt");
    while&#40;<MON_FICHIER>&#41; &#123;
      if &#40;$_ =~ /^interface/  &#123;
        $interface = $_;
      &#125;
      elsif &#40;$_ =~ /switchport\smode\strunk/&#41;  &#123;
        push @tab_interface, $interface;
      &#125;
      next;
    &#125;

  3. #3
    Membre à l'essai
    Inscrit en
    Février 2004
    Messages
    31
    Détails du profil
    Informations forums :
    Inscription : Février 2004
    Messages : 31
    Points : 17
    Points
    17
    Par défaut
    Merveilleux !! un très grand à toi !

    ps : je pense que le titre de mon post nest pas adapté étant donné que la solution proposée n'explique pas comment se positionner là où on veut dans un fichier... mais je vois pas comment expliquer ce que ça fait...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 02/07/2004, 20h14
  2. [langage] Ecrire un bloc de texte dans un fichier
    Par sarahbes dans le forum Langage
    Réponses: 6
    Dernier message: 10/06/2004, 12h40
  3. Réponses: 6
    Dernier message: 04/03/2004, 10h35
  4. [langage] Susbstitution dans un fichier
    Par GLDavid dans le forum Langage
    Réponses: 6
    Dernier message: 08/09/2003, 16h16
  5. [langage] Créé un hash dans un fichier...
    Par Smooky dans le forum Langage
    Réponses: 3
    Dernier message: 26/03/2003, 09h49

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