Discussion :

[shinux2004]

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 !

[2Eurocents]

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

[2Eurocents]

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 ?

[shinux2004]

Merci ! c'est exactement ce que je cherchais.


Vive developpez.com

[GLDavid]

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

@++

[siaoly]

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 !

[Fanch.g]

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
?