« Programmation Perl/Chaînes de caractères » : différence entre les versions
Contenu supprimé Contenu ajouté
Quelques fonctions utiles |
exemples double syntaxe |
||
Ligne 12 :
{{...}}
;''substr'' : Extrait une sous-chaîne.
<source lang="perl">
#!/usr/bin/perl
use strict;
use warnings;
my $chaine="babebibobu";
# extraction
print substr($chaine,4,2)."\n"; # bi
# extraction du 5e à l'antépénultième
print substr($chaine,4,-2)."\n"; # bibo
# comptage depuis la fin
print substr($chaine,-7,2)."\n"; # eb
# jusqu‘à l'avant-dernier
print substr($chaine,-7,-1)."\n"; # ebibob
# remplacement de 4 caractères par XX
substr($chaine,2,4,"XX");
print $chaine."\n"; # baXXbobu
# gommage = remplacement vide
substr($chaine,2,2,"");
print $chaine."\n"; # babobu
# incrustation = remplacement sur une longueur de zéro
substr($chaine,4,0,"YY");
print $chaine."\n"; # baboYYbu
# préfixage
substr($chaine,0,0,"PREF_");
print $chaine."\n"; # PREF_baboYYbu
# suffixage
substr($chaine,length $chaine,0,"_SUFF");
print $chaine."\n"; # PREF_baboYYbu_SUFF
###########################
# autre syntaxe
my $chaine2="dadedidodu";
# remplacement
substr($chaine2,2,3)="XX";
print $chaine2."\n"; # daXXidodu
# incrustation
substr($chaine2,6,0)="YY";
print $chaine2."\n"; # daXXidYYodu
# gommage
substr($chaine2,2,6)="";
print $chaine2."\n"; # daodu
# préfixage
substr($chaine2,0,0)="PREF_";
print $chaine2."\n"; # PREF_daodu
# suffixage
substr($chaine2,length $chaine2,0)="_SUFF";
print $chaine2."\n"; # PREF_daodu_SUFF
</source>
;''length'' : Calcule la longueur d'une chaîne.
;''lc'' : Transforme une chaîne en minuscules.
| |||