« Programmation Perl/Chaînes de caractères » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 103 :
print "\n";
</source>
;''lc'' : Transforme une chaîne en minuscules.
<source lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
use strict;
my $chaine="BaBeBiBOBU";
print lc "$chaine.\n"; # babebibobu
my $chaine2="fichier.TXT";
print ucfirst substr( $chaine2,0,-4). lc substr( $chaine2,-4,4)."\n" ;# Fichier.txt
</source>
;''uc'' : Transforme une chaîne en majuscules.
<source lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
use strict;
my $chaine="BaBeBiBOBU";
print uc $chaine."\n"; # BABEBIBOBU
</source>
;''lcfirst'' : Transforme le premier caractère d'une chaîne en minuscule.
<source lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
use strict;
my $chaine2="Cornélien";
print lcfirst $chaine2."\n"; # cornélien
</source>
;''ucfirst'' : Transforme le premier caractère d'une chaîne en majuscule.
<source lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
use strict;
my $chaine="corneille";
print ucfirst $chaine."\n"; # Corneille
my $chaine2="corneille, (auteur du cid.)";
print ucfirst substr( $chaine2,0,-5). ucfirst substr( $chaine2,-5,5)."\n" ; # Corneille, (auteur du Cid.)
</source>
;''chop'' : Supprime le dernier caractère d'une chaîne.
;''chomp'' : Permet de supprimer plusieurs caractères à la fin d'un chaîne.
| |||