 |
| | | | | | | | Les Chaines de Caractères en Perl
| | | | | | |
| | | | | | | | | 1. Qu'est-ce qu'une Chaine de Caractères ?
| | | |
|
Une chaine de caractère est une variable contenant une suite de caractère, et donc un mot ou une phrase. C'est
donc simplement une variable alpha-numérique, elle peut donc ne contenir que des chiffres. Le Perl ne fait
pas de différence de type entre les entiers, décimaux et Chaine de caractère d'un point de vue déclaration.
C'est la façon dont on se sert d'une variable qui lui impose son type.
| Fonction |
Description |
| Exemple |
| substr |
Fonction renvoyant une sous-chaine de celle passée en paramètre |
| $jour = substr($date,0,2); # renvoit les 2 premiers caractères |
| chomp |
Efface le dernier caractère d'une chaine. Utile dans le cas de la lecture de fichier ou le dernier caractère est un
saut de ligne |
| chomp($maLigne); |
| index |
Renvoit la position d'une sous-chaine dans une chaine |
| $i = index ($URL, "hobbesworld.com") |
| length |
Renvoit la taille de la chaine |
| $i = length ($URL) |
| uc |
Passe toute la chaine en majuscule (uppercase) |
| $machaine_en_majuscule = uc($machaine); |
| lc |
Passe toute la chaine en minuscule (lowercase) |
| $machaine_en_minuscule = lc($machaine); |
| Opérateur |
Description |
| Exemple |
| eq |
Teste l'égalité de 2 chaines |
if ($Chaine1 eq $Chaine2) {
print "les chaines sont identiques";
} |
| | | | | | | | | 4. 1. Quelques codes utiles
| | | |
|
| | | | | | | | | 4.1.1. Changer les Guillemets en double-Guillemets
| | | |
|
Cette opération peut s'avérer indispensable dans le cas d'utilisation d'une base de donnée, entre autre.
Il s'agit en fait de remplacer le '"' par '""'.
$maVariable =~ s/"/$& x 2/eg;
| | | | | | | | | 4.1.2. Enlever les espaces superflux en fin de ligne
| | | |
|
Cette commande permet de supprimer tous les espaces se trouvant en fin de chaine de caractère
$maVariable =~ s/\s+$//;
| | | | | | | | | 4.1.3. Mettre un code Perl avec noms de variables Perl directement interprétées
| | | |
|
open (RETOURHTML, $FichHTML);
while ($line=<RETOURHTML>) {
$line =~ s/(\$\w+)/$1/eeg;
print "$line\n";
}
close (RETOURHTML);
|
