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 :

[regex] "parsing de paramètres"


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre émérite Avatar de Spoutnik
    Homme Profil pro
    Inscrit en
    Octobre 2003
    Messages
    672
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 672
    Par défaut [regex] "parsing de paramètres"
    Hello

    J'ai une chaine du type 'ab=123456,cd=852,ef=7859abc,yz=Paris' et je voudrais récupérer la valeur de la propriété 'ef'.

    Si qq un peut me donner la solution, j'ai un peu de mal avec les regexp

    Déso si le problème a déja été traité, je l'ai pas trouvé.

    thx

    ++

    PS : l'ordre des propriétés peut changer.

  2. #2
    Membre Expert Avatar de MarneusCalgarXP
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    911
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 911
    Par défaut
    voila la solution

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    #!/usr/bin/perl
     
    my $string = 'ab=123456,cd=852,ef=7859abc,yz=Paris';
    if ($string =~ /ef=(.+?)(,|$)/)
    {
    	my $value = $1;
    	print("trouvé : $value\n");
    }

  3. #3
    Membre Expert Avatar de MarneusCalgarXP
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    911
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 911
    Par défaut
    Autre solution un poil plus longue:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    #!/usr/bin/perl
     
    my $string = 'ab=123456,cd=852,ef=7859abc,yz=Paris';
     
    my @array = split(',', $string);
    foreach (@array)
    {
    	if (/^ef=(.+)$/)
    	{
    		my $value = $1;
    		print "trouvé : $value\n"
    	}
    }

  4. #4
    Membre Expert
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Février 2003
    Messages
    1 603
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2003
    Messages : 1 603
    Par défaut
    Un exemple qui en vaudra bien un autre (surtout lorsque Jedai ou Pospos auront mis leur nez dans ce topic )

    J'utilise ici un hash pour éclater les données de ta chaîne à traiter :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    use strict;
    my %hash;
     
    my $chaine = "ab=123456,cd=852,ef=7859abc,yz=Paris";
    @_ = split(/,/, $chaine);
    foreach(@_)
    {
        $hash{$1} = $2 if (/(.+)=(.+)/);
    }
     
    print "$hash{ef}\n";
    Mon exemple te permet de conserver trace de toutes tes valeurs

  5. #5
    Membre chevronné
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    427
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 427
    Par défaut
    pour en faire une hash :
    (non testé)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    my $chaine = 'ab=123456,cd=852,ef=7859abc,yz=Paris';
    my %hash = split(/[=,]/, $chaine);
    print $hash{ef};
    si tu veux juste chopper la valeur de certain parametres tu peux aussi conserver ls arguments dans une chaine et utiliser une regepx à chaque fois:

    (toujours non testé)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    my $chaine = 'ab=123456,cd=852,ef=7859abc,yz=Paris';
     
    print get_arg($chaine, 'ef');
     
    sub get_arg {
      if ($_[0] =~ /(?:^|,)$_[1]=([^,]*)/) {
        $1
      }
    }
    franchement je prefere la premiere solution, mais la seconde approche est parfois meilleure dans certains cas precis (genre quand on n'a besoin que d'extraire un petit nombre de chose d'un gros string, mais ca n'est pas le cas ici).
    De plus pour la seconde approche le mieux est d'utiliser un cache pour la regexp.

    genre:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    my $chaine = 'ab=123456,cd=852,ef=7859abc,yz=Paris';
     
    print get_arg($chaine, 'ef');
     
    {
      my %Cache;
      sub get_arg {
        if ( $_[0] =~ ($Cache{$_[1]} ||= qr/(?:^|,)$_[1]=([^,]*)/) ) {
          $1
        }
      }
    }
    mais la encore ca ne sert pas à grand chose dans le cas qui nous interesse ici

    Perso je me sert de cette technique pour traiter mes entetes HTTP: je trouve cette approche plus rapide la plupart du temps que d'utiliser HTTP::Headers qui decoupe systematiquement les entetes et els place dans une hash, et en plus ca permet de conserver le string original intacte

  6. #6
    Membre émérite Avatar de Spoutnik
    Homme Profil pro
    Inscrit en
    Octobre 2003
    Messages
    672
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 672
    Par défaut
    merci!

    Je suis en train de me demander si j'ai posté dans le bon forum : je suis largué

    A la base, je cherche à trouver la bonne regexp pour pouvoir créer un index dans une base postgres. Donc, malheureusement, je peux pas utiliser de script "complexe".
    Il va falloir que je cherche comment adapter ca à mon problème, et à ce que supportte Pg.

    S'il existe une solution en regexp 'pur'

    Merci à tous.

  7. #7
    Membre chevronné
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    427
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 427
    Par défaut
    et tu peux utiliser ce qui est capturé par la regexp pour faire ton index?
    Et Pg reconnait les trucs genre "(?: )" ?

    si oui alors tu peux faire ca:
    /(?:^|,)ef=([^,]*)/

  8. #8
    Membre émérite Avatar de Spoutnik
    Homme Profil pro
    Inscrit en
    Octobre 2003
    Messages
    672
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 672
    Par défaut
    Citation Envoyé par pospos
    et tu peux utiliser ce qui est capturé par la regexp pour faire ton index?
    Oui, Pg permet de faire des index grâce au résultat de fonctions 'immutable' (non dépendantes des données en base en gros )
    Je ne sais plus depuis quelle version, mais ca fait déjà un petit moment que c'est possible.
    Citation Envoyé par pospos
    Et Pg reconnait les trucs genre "(?: )" ?

    si oui alors tu peux faire ca:
    /(?:^|,)ef=([^,]*)/
    MERCI !!!

    Pour ceux que ca interesserait :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    select substring ( 'ab=123456,cd=852,ef=7859abc,yz=Paris' from '(?:^|,)ef=([^,]*)')
    encore merci de la part de mes cheveux et de la boite d'aspirine

    PS : si t as le courage d'expliquer la syntaxe, je suis preneur

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

Discussions similaires

  1. [RegEx] Regex avec virgule dans double quotes
    Par LeHibou2 dans le forum Langage
    Réponses: 2
    Dernier message: 16/12/2012, 20h16

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