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 :

regexp non greedy non fonctionnel


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre émérite
    Profil pro
    Assistant recherche bioinformatique
    Inscrit en
    Novembre 2007
    Messages
    877
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant recherche bioinformatique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 877
    Par défaut regexp non greedy non fonctionnel
    Bonjour,
    Je voudrais capturer la chaîne de caractère la plus petite d’après une expression régulière contenant une syntaxe non greedy, mais je capture toute la chaîne> Je voudrais uniquement cauptrer s:586:"Dear Dr. [node:author].
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    my $s = 's:7:"message";s:586:"Dear Dr. [node:author]';
    if ($s =~ /(s\:\d+\:.+?\:author\])/s ) { # author peut etre plusieurs lignes apres le s:\d+:, ces lignes peuvent aussi contenir des doubles quotes.
    	print "$1\n";
    }
    Je ne comprends pas mon erreur. La voyez vous ?
    Merci
    Z.

  2. #2
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Billets dans le blog
    1
    Par défaut
    Bonjour,

    pour moi, ça marche exactement comme ça devrait marcher (et comme je m'attendais que ça marche) .

    Ou alors, si tu n'as pas le résultat escompté, alors précise:
    - le résultat que tu attends
    - ce que tu obtiens à la place.

  3. #3
    Membre émérite
    Profil pro
    Assistant recherche bioinformatique
    Inscrit en
    Novembre 2007
    Messages
    877
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant recherche bioinformatique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 877
    Par défaut
    J'obtiens la ligne entière.

    Voici le code entier :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    #!/usr/bin/perl
     
    use strict;
    use warnings;
    # use String::HexConvert ':all';
    # use PHP::Serialization qw(serialize unserialize);
    # use Data::Dumper;
     
    my $s = 's:7:"message";s:586:"Dear Dr. [node:author]';
    if ($s =~ /(s\:\d+\:.*?\:author\])/s ) {
    	print "$1\n";
     
    }
    __END__
    Et voici le terminal :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    perl remplace.pl 
    s:7:"message";s:586:"Dear Dr. [node:author]

  4. #4
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Billets dans le blog
    1
    Par défaut
    Oui, c'est aussi ce que j'obtiens, et exactement ce à quoi je m'attendais en lisant ta regex. Le fait d'avoir "author" dans la regex l'oblige à aller jusque là. C'est quoi le résultat que tu recherches?

  5. #5
    Membre émérite
    Profil pro
    Assistant recherche bioinformatique
    Inscrit en
    Novembre 2007
    Messages
    877
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant recherche bioinformatique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 877
    Par défaut
    Ce qui en gras ci-dessus : s:586:"Dear Dr. [node:author]

    Merci de ton aide.

  6. #6
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Billets dans le blog
    1
    Par défaut
    OK, dans ce cas, le problème est double: d'une part il y a deux fois "s:", et la regex va commencer à matcher à partir de la première occurrence, et d'autre part la parenthèse ouvrante est mal placée (et tu captures plus que ce que tu veux). Voici un exemple de ce que tu veux faire sous le debugger, dans lequel j'ai ajouté le ";" en début de regex pour prendre le deuxième "s:":
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
      DB<1>  $s = 's:7:"message";s:586:"Dear Dr. [node:author]';
     
      DB<2> print $1 if $s =~ /;s\:(\d+\:.*?\:author\])/s;
    586:"Dear Dr. [node:author]

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

Discussions similaires

  1. Expression régulière "non greedy" en Java
    Par teletexte dans le forum Langage
    Réponses: 7
    Dernier message: 05/07/2014, 20h02
  2. clause de non sollicitation - non concurence
    Par Alwin dans le forum Contrat
    Réponses: 22
    Dernier message: 02/10/2009, 15h47
  3. Clavier du portable non reconnu, non démarrage de Vista
    Par Dennis Nedry dans le forum Périphériques
    Réponses: 12
    Dernier message: 12/07/2009, 11h41
  4. Lecteur CD/DVD non reconnu mais fonctionnel
    Par CmoiShinji dans le forum Composants
    Réponses: 1
    Dernier message: 20/08/2008, 11h58
  5. Réponses: 1
    Dernier message: 24/11/2006, 16h15

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