Discussion :

[etranger]

Bonjour

j'essay de creer une fonction qui qui me renvoie le nombre d'occurances d'une sous chaine de N caractaires dans une chaine donnée.

je fait cela de la maniere suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
sub make_histogramm{
                 my ($text, $size) = @_;
                 my %result;
 
                 while ($text =~ /(\S{$size})/g){
                        $result{$1}++;
                        #print $1;  #pour le debogage
                        #<STDIN>;
                 }
 
                 return %result;
 
}

le probleme c'est que si je passe a cette fonction une chaine comme "abcdefgh", avec une longeure de sous chaine de 2, l'expression reguliaire me renvoie "ab" = 1, "cd"=1 ... alors que ce qu'il me faudrait c'est que l'expression reguliaire me detecte egualement le "bc" , "de" ...

Donc y a t-il une facon de faire cela uniquement avec une expression reguliaire, ou alors je devrait bidouiller un peut avec des boucles ?

Merci d'avance, j'aurait surment d'autres questions sur les expressions reguliaire, je les poserait donc ici

[MarneusCalgarXP]

Personnellement, je procédèrerais de la manière suivante:

1. suppression des espaces de la chaine à l'aide d'une regexp
2. avec une boucle $i allant de 0 à length($str) - $size
   • Je récupère la sous-chaine substr($str, $i, $size)
   • j'incrémente le compteur de cette sous-chaine

[etranger]

effectivement c'est une solution, mais je voulait savoir (par curiosité) si c'était possible de le faire avec une regex

P.S : genre une variable $^%\!2# à activer

[MarneusCalgarXP]

Peut-être (j'ai pas testé) en faisant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub make_histogramm{
                 my ($text, $size) = @_;
                 my %result;
                 $size--;
                 
                 while ( $text =~ s/(\S)(\S{$size})/$2/ ) {
                        $result{$1.$2}++;
                        #print $1;  #pour le debogage
                        #<STDIN>;
                 }
                
                 return %result;
				 
}

[lalystar]

Bonjour,


Je ne suis pas sûr d'avoir bien saisi, mais je pense qu'on peut faire comme ca avec une regexp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
my %len;
 
$chaine = "toto AAA XXX XXXX AA";
 
$chaine =~ s/\b\S+\b/&f($&)/eg;
 
foreach (keys %len)
{
   print "Length $_ => ", $len{$_}, "\n";
}
 
sub f
{
   my ($match) = @_;
 
   $len{length($match)}++;
 
   return $match;
}

Qui produit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Length 4 => 2
Length 3 => 2
Length 2 => 1

Laly.

[etranger]

Merci a vous deux pour vous etre pencher sur mon probleme

MarneusCalgarXP, ta methode a l'air de fonctioner, il faudra que je la test encore un peu.

lalystar, se n'est pas vraiment ce que je voulais faire, ta fonction me renvoi combien de fois un mots de N lettres apparet dans ma chaine, alors que ce que je cherche a faire c'est de trouver tout les anagrames differents de N lettres (N doit etre choisi par l'utilisateur) dans mon texte, avec la frequence d'apparition de chaque anagrames. Les espaces peuvent ou non etre pris en comte.

Maintenant ce n'est pas d'y arriver qui est difficile, c'est plutot de le faire de la maniere la plus eleguante.

J'ai appris que c'est le meta-caractaire \G qui contient l'index de la recherche (la position ou la recherche est arrivee), y aurait il une maniere pour modifier cest index ?