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 :

Probleme parser Perl


Sujet :

Langage Perl

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Août 2009
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Août 2009
    Messages : 41
    Par défaut Probleme parser Perl
    voila j'ai un fichier texte, avec beaucoup de donnée du style:

    aaa=xxx ,veze=xxx , rezfsd= xxx

    et je désirerais récupérer la valeur qui se trouve après le triple A.
    Si la valeur etait statique cela ne me poserait pas de problème mais dans mon cas la valeur est dynamique et donc le nombre de chiffre peux varier.
    l'idee serai donc de prendre l'interval entre le = et la ,
    mais je ne sais vraiment pas comment faire.
    j'espere que quelqu'un saura m'aider.
    merci d'avance

  2. #2
    Membre expérimenté

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Janvier 2011
    Messages
    184
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Janvier 2011
    Messages : 184
    Par défaut
    Avec une expression régulière :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    my $s = "aaa=xxx ,veze=xxx , rezfsd= xxx";
    $s =~/^a{3}=(\d+)/;
    my $val = $1;
    print $val, "\n";

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Août 2009
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Août 2009
    Messages : 41
    Par défaut
    tu saurais m'expliquer les étapes svp parce que je comprend pas le code

  4. #4
    Membre expérimenté

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Janvier 2011
    Messages
    184
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Janvier 2011
    Messages : 184
    Par défaut
    Oui bien sûr :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    my $s = "aaa=xxx ,veze=xxx , rezfsd= xxx";
    $s =~/^a{3}=(\d+)/; #1
    my $val = $1; #2
    print $val, "\n";
    On matche la chaîne $s avec l'expression régulière /^a{3}=(\d+)/ qui se traduit par : une chaîne qui commence par trois 'a' ( le "a{3}") puis '=' et ensuite un nombre d'au moins un chiffre (représenté par \d+).
    Les parenthèses autour de \d+ permettent de signaler que l'on veut récupérer cette partie de la chaîne.

    #2 On récupère la partie voulue (les parenthèses de l'expression régulière) qui a été automatiquement stockée dans une variable $1.

  5. #5
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Par défaut
    A titre d'information, et pour éviter tout effet de bord liés à la variable automatique $1 (qui pourrait arriver en introduisant des instructions entre l'exécution de la regexp, et l'exploitation de $1), il est possible d'affecter directement le résultat des parenthèses capturantes d'une expression régulière dans une liste de variables :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    my ($val) = $s =~/^a{3}=(\d+)/;
    (les parenthèses autour de $val ont une importance capitale : elles fournissent à l'opérateur =, et donc à l'opérateur =~, un contexte de liste qui permet que soient retournés les valeurs capturée, au lieu du nombre de valeurs capturées).

Discussions similaires

  1. [TELNET]probleme script perl
    Par gdpasmini dans le forum Programmation et administration système
    Réponses: 3
    Dernier message: 04/06/2007, 10h20
  2. help me probleme script perle
    Par babar006 dans le forum Langage
    Réponses: 1
    Dernier message: 02/06/2007, 10h17
  3. [web] probleme dynamique perl->html->perl
    Par herve70 dans le forum Web
    Réponses: 3
    Dernier message: 13/11/2006, 17h48
  4. Cron - Problème de Perl avec ssh
    Par GLDavid dans le forum Administration système
    Réponses: 4
    Dernier message: 15/05/2006, 12h27
  5. Réponses: 24
    Dernier message: 31/05/2005, 15h07

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