« Programmation Perl/Chaînes de caractères » : différence entre les versions

;''substr'' : Extrait une sous-chaîne.

 

#!/usr/bin/perl

use strict;

substr($chaine,length $chaine,0)="_SUFF";

print $chaine."\n"; # babebibobu_SUFF

 

 

;''length'' : Calcule la longueur d'une chaîne.

#!/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";

 

;''lc'' : Transforme une chaîne en minuscules.

#!/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

 

;''uc'' : Transforme une chaîne en majuscules.

#!/usr/bin/perl -w

# -w = "use warnings;"

my $chaine="BaBeBiBOBU";

print uc $chaine."\n"; # BABEBIBOBU

 

;''lcfirst'' : Transforme le premier caractère d'une chaîne en minuscule.

#!/usr/bin/perl -w

# -w = "use warnings;"

my $chaine2="Cornélien";

print lcfirst $chaine2."\n"; # cornélien

 

;''ucfirst'' : Transforme le premier caractère d'une chaîne en majuscule.

#!/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.)

 

;''chop'' : Supprime le dernier caractère d'une chaîne.

Il est utilisé surtout pour effacer les \n ("entrées" ou Carriage Return).

 

#!/usr/bin/perl -w

use strict;

print @tableau2;# vacheveau

print "\n";

;''chomp'' : Permet de supprimer plusieurs caractères à la fin d'un chaîne.

 

#!/usr/bin/perl -w

use strict;

close(Descr1);

print "\n";

 

;''reverse'' : Inverse l'ordre des caractères d'une chaîne.

#!/usr/bin/perl -w

use strict;

my $envers= reverse $tableau[2];

print $envers;# emeisiort