[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:

---

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:

---

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 ! :?

Un petite triche, en une ligne ...

Code:

---

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 ;)

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:

---

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 ?

Merci ! c'est exactement ce que je cherchais. :D


Vive developpez.com

Un petit tag résolu après, merci !

@++

Citation:

---

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 :

---

Citation:

---

Code:

---

Code:

---

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 ! :D

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
?