Discussion :

[kioka]

Kikou,
Possible que la question ai déjà été posé mille fois, mais j'ai beau rechercher, je trouve pas de réponse.

Je voulais savoir comment connaitre la position d'une occurence. Je connais cette méthode :

Code :

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

1
2
3
4
5
6
7
8
9
$string="coucou"
$char = "u";
$offset = 0;
$result = index($string, $char, $offset);
while ($result != -1) {
    print "Found $char to $result\n";
    $offset = $result + 1;
    $result = index($string, $char, $offset);
}

j'aimerai l'adapter de manière à mettre non pas $char="u" mais par exemple $char="c.ua?" (il devrait me donner les positions 0 et 3 dans ce cas) ... Mais pour l'instant c'est sans succès.

Merci d'avance pour tout aide ...

[djibril]

Si tu veux mettre ton code en couleur sur le forum, tu n'a pas besoin de t'embêter à colorier ton code avec les balises.
Tu sélectionnes ton code puis clique sur l'image # et ce sera ok.

Code :

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

1
2
3
4
5
6
7
8
9
$string="coucou"
$char = "u";
$offset = 0;
$result = index($string, $char, $offset);
while ($result != -1) {
    print "Found $char to $result\n";
    $offset = $result + 1;
    $result = index($string, $char, $offset);
}

Pour ton souci, je comprends pas ce que tu souhaites.
en quoi tu veux les occurences de u ou de toute ta chaine "c.ua?" ? Car je vois pas en quoi c.ua? se retourve en position 0 et 3 dans "coucou"

[kioka]

En fait c.ua? est une expression régulière : "c" suivis d'une lettre quelconque suivis d'un "u" et qui peut être suivis d'un "a" mais pas obligatoirement ...
Je devrais ressortir avec cette expression : cou de coucou mais j'aimerai savoir les positions où il retrouve cette expression ... ici 0 et 3.

[djibril]

ok, j'avais pas saisi

[kioka]

La fonction index semble ne marcher que pour des sous chaines complète ... je me demandais si il existait un équivalent pour les expressions régulières ? Ou une méthode pour avoir les positions où l'expression régulière est trouvée ?

[djibril]

Vite fait, pas testé

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 $string = "coucou";
my $char   = "c.ua?w";
my $offset = 0;
 
my ($recherche) = $string =~ /($char)/;
if($recherche) {
  print "$char existe dans $string\n";
  my $result = index($string, $recherche) ;
  while ($result != -1) {
 
      print "Found $char at $result\n";
 
      $offset = $result + 1;
      $result = index($string, $recherche, $offset);
 
  }
}
else {
  print "$char n'existe pas dans $string\n";
}

[kioka]

Ca marche pour ce cas simple (où je n'ai pas besoin du while) mais pas si je recherche plusieurs occurences différentes et de plus mon while bug en boucle infinie ...

exemple :

Code :

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

1
2
$string = "couciucau";
$char= "c.ua?";

Il devrait trouvé cou / ciu / cau ...

Je vais tester avec un "while" et "g", (une idée qui viens juste de me passer par la tête).

[Jedai]

Après une expression régulière, $-[0] contient l'index de début de la reconnaissance, et $+[0] contient l'index de fin. Les autres indices de @- et @+ se réfèrent aux expressions capturées (entre parenthèses).

La fonction pos() peut également être intéressante.

--
Jedaï

[kioka]

J'ai regardé la fonction pos mais c'est pas top pour ce que je souhaite comme résultat ... par contre j'ai repris l'idée de djibril que j'ai réadapté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$string = "couciucau";
$exp="c.ua?";
while($string=~/($exp)/g){
  $char=$1;
  $result = index($string, $char);
  print "Found $char at $result\n";
}
 
Après execution :
Found cou at 0
Found ciu at 3
Found cau at 6

Résultat ça marche nikel ....
Merci djibril

[djibril]

voici une procédure faite. elle te resort toute les positions.
tu peux lui mettre en 3eme argument pour lui indiquer le début de la recherche

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
21
22
23
24
25
26
27
28
29
30
my $texte = "coucoucgua";
my $regex = 'c.ua?';
 
my $ref_position = positionDansTexe($texte, $regex);
print "@{$ref_position}\n" if ($ref_position);
 
 
sub positionDansTexe {
  my ($texte, $motif, $DebutRecherche) = @_;
  my @ListPosition;
  $DebutRecherche = 0 if(not defined $DebutRecherche);
  my (@occurence) = $texte =~ /($motif)/g;
  return unless(@occurence);
 
  # On supprime les doublons
  my %unique;
  @occurence = grep {! $unique{$_}++ } @occurence;
 
  # Recherche des positions
  foreach my $recherche (@occurence) {
    my $position = index($texte, $recherche, $DebutRecherche);
    while ($position != -1) {
      push(@ListPosition, $position);
      $DebutRecherche = $position + 1;
      $position = index($texte, $recherche, $DebutRecherche);      
    }
  }
 
  return \@ListPosition;
}

Maintenant je vais me pencher sur la solution de jedai, car je me doutais qu'il y avais surement quelque chose de prévu dans Perl.

[kioka]

Merci mais pour ce que je voulais faire le petit code que j'ai donné marche très bien

Merci pour ton aide

[Jedai]

Résultat ça marche nikel ....
Merci djibril

Non, ça ne marche pas nikel, rajoute un "cou" à la fin de ta chaîne par exemple...

De plus algorithmiquement c'est mauvais, tu passe de O(n) à O(n²)...

pos() ne convient pas pour ton usage mais ce n'est pas la première possibilité que j'ai évoqué, ce que tu veux correspond exactement à @- :

Code :

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

1
2
3
4
5
6
$string = "couciucaucou";
$exp="c.ua?";
while($string=~/($exp)/g){
  $char=$1;
  print "Found $char at $-[0]\n";
}

--
Jedaï

[djibril]

donc pour la procédure faite ci dessus, tu peux l'écrire ainsi aussi en utilisant @- de jedai.
C'est encore plus efficace (optimale).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub positionDansTexe {
  my ($texte, $motif, $DebutRecherche) = @_;
  my @ListPosition;
  $DebutRecherche = 0 if(not defined $DebutRecherche);
 
  while($texte=~/($motif)/g){
    push(@ListPosition, $-[0]) if($-[0] >= $DebutRecherche);
  }
  return \@ListPosition;
 
}

[kioka]

@Jedai : oups j'avais pas vu cette erreur ... ... merci beaucoup ...

@djibril : merci aussi pour la procédure mais le fait de retournée un tableau me dérange un peu pour l'affichage que je souhaite ...
Mais avec le bout de code de Jedai j'ai pu m'arranger correctement

Mille merci à vous deux !