PERL POUR LA MANIPULATION DE TEXTES Une Introduction par l ...

More documents

Recommendations

Info

incrémentée de 1.EXEMPLE 4 : Que permet de faire le script suivant? Il utilise la plupart d'éléments qu'on a déjàrencontrés plus l'opérateur de comparaison > (supérieur). Dans notre exemple, cet opérateur permetde comparer deux quantités numériques. L'exemple montre aussi que le bloc else dans une structureif-else est optionnel.===================#!/usr/bin/perl# ce script permet de .....$fich=shift ;open(FICHIER, $fich) || die "Impossible d'ouvrir le fichier : $fich\n";$max=0;while () {$len=length($_);if ($len > $max){$max=$len;}}print "MAXIMUM: $max\n";===================EXEMPLE 5 : Que permet de faire le script suivant?==================#!/usr/bin/perl# ce script permet de ....................................$fich=shift ;open(FICHIER, $fich) || die "Impossible d'ouvrir le fichier : $fich\n";while () {tr/A-ZÂÀÄÉÈÊËÎÏÔÖÓÛÙÜÇÑ/a-zâàäéèêëîïôöóûùüçñ/;s/([0-9]+) ([0-9]+)/$1$2/g;s/ ([sdlmntcj]')([a-z]+)/ $1\n$2/g;s/^([dlmntcj]')([a-z]+)/$1\n$2/g;s/(qu|jusqu|lorsqu)'/$1'\n/g;tr/\t//d;s/\.\n/\n.\n/;s/([,\.]) /\n$1 /g;
}tr/ /\n/;print $_;======================Certains éléments qu'on avait vus lors des séances de familiarisation avec l'environnement Linux,mais leur syntaxe est légèrement différente :tr permet de transformer des ensembles de caractères (ici les majuscules en minuscules).NOTE : les deux ensembles de caractères doivent être de taille égale.s permet d'effectuer des substitutions sur des chaînes de caractères. Cette instruction permet demanipuler aussi des expressions régulières.$1 et $2 font référence à la première et deuxième sous-expression d'une expression régulière,qu'on souhaite réutiliser dans les substitutions. Ces deux variables spéciales sont l'équivalentdes variables \1 et \2 qu'on avait vu avecla commande grep).Reprenons tour à tour les éléments du langage perl qu'on a vu jusqu'ici, et examinons-les d'unemanière plus approfondie :Les variablesL'opérateur print.Variables scalaires :- affectation d'une valeur- opérateurs de comparaisonLes structures de contrôleSubstitutions et transformations sur les chaînes de caractèresOuverture des fichiers et lecture
Page 6 and 7: PREMIERE PARTIE0/ Qu'est-ce que per
Page 8 and 9: $nombre1=12.5 ; #### (nombre réel)

PERL POUR LA MANIPULATION DE TEXTES Une Introduction par l ...

Create successful ePaper yourself

Delete template?

Save as template?