Différences entre les versions de « Programmation Perl/Chaînes de caractères »

m
<source> -> <syntaxhighlight> (phab:T237267)
m (→‎Fonctions de manipulation des chaînes : quelque soit->quel que soit)
m (<source> -> <syntaxhighlight> (phab:T237267))
 
;''substr'' : Extrait une sous-chaîne.
 
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl
use strict;
substr($chaine,length $chaine,0)="_SUFF";
print $chaine."\n"; # babebibobu_SUFF
</syntaxhighlight>
</source>
 
 
;''length'' : Calcule la longueur d'une chaîne.
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
print length "devant".substr($chaine,-7,-1)x 3 ."derrière\n".sprintf ("%.5f",6/7) ; # 41 dont devant = 6 ; eBIboB x 3 = 18 ; derrière\n = 10 (è = 2) ; 0.85714 = 7 caractères
print "\n";
</syntaxhighlight>
</source>
 
;''lc'' : Transforme une chaîne en minuscules.
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
my $chaine2="fichier.TXT";
print ucfirst substr( $chaine2,0,-4). lc substr( $chaine2,-4,4)."\n" ;# Fichier.txt
</syntaxhighlight>
</source>
 
;''uc'' : Transforme une chaîne en majuscules.
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
my $chaine="BaBeBiBOBU";
print uc $chaine."\n"; # BABEBIBOBU
</syntaxhighlight>
</source>
 
;''lcfirst'' : Transforme le premier caractère d'une chaîne en minuscule.
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
my $chaine2="Cornélien";
print lcfirst $chaine2."\n"; # cornélien
</syntaxhighlight>
</source>
 
;''ucfirst'' : Transforme le premier caractère d'une chaîne en majuscule.
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
my $chaine2="corneille, (auteur du cid.)";
print ucfirst substr( $chaine2,0,-5). ucfirst substr( $chaine2,-5,5)."\n" ; # Corneille, (auteur du Cid.)
</syntaxhighlight>
</source>
 
;''chop'' : Supprime le dernier caractère d'une chaîne.
Il est utilisé surtout pour effacer les \n ("entrées" ou Carriage Return).
 
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl -w
use strict;
print @tableau2;# vacheveau
print "\n";
</syntaxhighlight>
</source>
;''chomp'' : Permet de supprimer plusieurs caractères à la fin d'un chaîne.
 
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl -w
use strict;
close(Descr1);
print "\n";
</syntaxhighlight>
</source>
 
;''reverse'' : Inverse l'ordre des caractères d'une chaîne.
<sourcesyntaxhighlight lang="perl">
#!/usr/bin/perl -w
use strict;
my $envers= reverse $tableau[2];
print $envers;# emeisiort
</syntaxhighlight>
</source>
1 535

modifications