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

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;