« Programmation Perl/Chaînes de caractères » : différence entre les versions
Contenu supprimé Contenu ajouté
exemples double syntaxe |
|||
Ligne 78 :
;''length'' : Calcule la longueur d'une chaîne.
<source lang="perl">
#!/usr/bin/perl -w
# -w = "use warnings;"
use strict;
my $chaine="babebibobu";
print length $chaine; # 10
print "\n";
# lettres accentuées du français = 2 octets
my $chaine2="àâéèêëîïôùûçœæ";
print length $chaine2; # 28
print "\n";
# caractères spéciaux
print length "\t"; # 1 = UNE tabulation
print "\n";
print length "\\\n"; # 2 = une \ littéralement + un retour de chariot
print "\n";
# accepte toute chaîne quelque soit l‘emberlificotage de fonctions qui la crèe.
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";
</source>
;''lc'' : Transforme une chaîne en minuscules.
;''uc'' : Transforme une chaîne en majuscules.
| |||