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] Problème avec un script ! :(


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Février 2005
    Messages
    43
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 43
    Par défaut [langage] Problème avec un script ! :(
    Bonjour!

    J'ai écrit un script capable de compter dans une chaine de caractères le nombre de fois ou une chaine de caratères est présente

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
      $string = "-9 8 -4 -2 9";
      while ($string =~ /-\d+/isg) { $count++ }
      print " Il y a $count nombre négatif";
    mais seulement je veut adapter ce code a la recherche de caractères pour par exemple compter le nombre de fois ou le mot chien est présent.


    $mc est la chaine que je doit comparer avec $mot

    $mc="chien";

    $mot="mais ou est le chien chien de Lulu";

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
      $string = "$mc";
      while ($string =~ /$mot\w$mc/isg) { $count++ }
      print " Il y a $count de fois chien dans $mot comparer a $mc";
    sa marche pas !

  2. #2
    Membre Expert
    Avatar de 2Eurocents
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    2 177
    Détails du profil
    Informations personnelles :
    Âge : 55
    Localisation : France

    Informations forums :
    Inscription : Septembre 2004
    Messages : 2 177
    Par défaut
    Un petite triche, en une ligne ...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    perl -e '$a="toto to t o";$b= ($a =~ s/(to)/$1/g); print $b'
    En gros, le remplacement global d'expression rationnelle par elle même est automatiquement compté et retourné par l'opérateur de mise en correspondance.

    A toi d'adapter

  3. #3
    Membre Expert
    Avatar de 2Eurocents
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    2 177
    Détails du profil
    Informations personnelles :
    Âge : 55
    Localisation : France

    Informations forums :
    Inscription : Septembre 2004
    Messages : 2 177
    Par défaut
    Sinon, pour répondre réellement à ton problème, de la même manière algorithmique que toi et pas en utilisant une triche à deux centimes, j'ai remanié ton script de la façon suivante :

    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;
     
    my $mot="chien";
     
    my $chaine="mais ou est le chien chien de Lulu";
     
    my $count = 0;
     
    while ($chaine =~ /$mot/isg) { $count++ }
     
    print " Il y a $count fois '$mot' dans '$chaine'\n";
    Cela te convient il mieux ?

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Février 2005
    Messages
    43
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 43
    Par défaut Re :: Probléme
    Merci ! c'est exactement ce que je cherchais.


    Vive developpez.com

  5. #5
    Membre expérimenté
    Avatar de GLDavid
    Homme Profil pro
    Head of Service Delivery
    Inscrit en
    Janvier 2003
    Messages
    2 892
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Head of Service Delivery
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Janvier 2003
    Messages : 2 892
    Par défaut
    Un petit tag résolu après, merci !

    @++
    GLDavid
    Consultez la FAQ Perl ainsi que mes cours de Perl.
    N'oubliez pas les balises code :tagcode: ni le tag :resolu:

    Je ne répond à aucune question technique par MP.

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2005
    Messages
    73
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2005
    Messages : 73
    Par défaut
    Sinon, pour répondre réellement à ton problème, de la même manière algorithmique que toi et pas en utilisant une triche à deux centimes, j'ai remanié ton script de la façon suivante :
    Code:
    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; 
     
    my $mot="chien"; 
     
    my $chaine="mais ou est le chien chien de Lulu"; 
     
    my $count = 0; 
     
    while ($chaine =~ /$mot/isg) { $count++ } 
     
    print " Il y a $count fois '$mot' dans '$chaine'\n";
    Bonjour! je trouve ce script très interéssant, seulement je voudrais savoir comme faire pour etendre la recherche :

    Par exemple on tape lul* et le script cherche les occurences proche tel que lulo, lula, luli etc ....

    Merci !

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Juin 2004
    Messages
    22
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2004
    Messages : 22
    Par défaut
    Citation Envoyé par siaoly
    Par exemple on tape lul* et le script cherche les occurences proche tel que lulo, lula, luli etc ....
    Tu parle de ca :
    http://www.developpez.net/forums/viewtopic.php?t=299067
    ?

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

Discussions similaires

  1. Imprimer un fichier texte avec un script vbs
    Par Persons dans le forum Windows
    Réponses: 3
    Dernier message: 23/12/2004, 16h47
  2. [langage] Pb de syntaxe avec GOTO
    Par BEAUJAULT dans le forum Langage
    Réponses: 2
    Dernier message: 14/10/2004, 16h02
  3. Pb d'execution de requete avec un script php
    Par ythierrin dans le forum Requêtes
    Réponses: 3
    Dernier message: 22/08/2003, 14h34
  4. Problème avec un script ftp
    Par doohan dans le forum Linux
    Réponses: 2
    Dernier message: 25/06/2003, 17h47
  5. Réponses: 6
    Dernier message: 04/04/2003, 15h28

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