Discussion :

[autousto]

Bonjours

je veut avoir un emplacement d'un caractère dans une chaine de caractère, jai utilisé Index est c'est bien marché, après je voulai avoir l'emplacement de 3 caractère par exemple la chaine ----> intro_perl_prog
donc je cherche l'emplacement de "ro_" quand j'utilise Index il me retourne l'emplacement de "r", et ce n'est ce que je veut, enfaite je veut quil cherche les 3caractère collé ensemble et il me retourne l'emplacement du dernie caractère.

merci

[autousto]

ya une petite sollution par exemple écrire si je cherche "ro_" donc je mettrais après au lieux demettre +1, je met +3 pour avoir le reste de la chaine, je voulai savoir s'il existe une autre sollution.
merci

[Philou67430]

Il suffit de retourner la valeur retournée par index + la taille du texte cherché :

Code :

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

1
2
3
4
5
6
7
sub index_apres {
  my ($motif, $texte) = @_;
 
  return index($motif, $texte) + length($motif);
}
 
print index_apres("_ro", "intro_perl_prog"), "\n";

Attention cependant, ce bout de code ne vérifie pas que le motif est bien présent dans la chaine. S'il n'est pas présent, la valeur retournée est erronée.

[autousto]

merci