Perl, manipulation des fichiers texte et du contenu.

Hé hé hé !!!

L'utilisation de Perl est justifiée par la faible quantité de données de nos corpus alliée à la simplicité syntaxique de Perl travailler sur les données textuelles.

Il ne s'agit pas ici d'un tutorial Perl général, plutôt l'utilisation de Perl dédiée à notre projet.

Entrées/Sorties Fichier Texte

Débutons par les entrées/sorties fichier avec Perl. Nous allons travailler sur des fichiers textes, donc voici la manipulation de ceux-ci via Perl.

OUVRIR LE FICHIER TEXTE POUR ACCÉDER À SON CONTENU

- ouverture en interne, fichier à traiter indiqué à l'intérieur du script.

° Fonction open() : premier argument, nom du flux à ouvrir et

second argument, chemin vers le fichier texte. Retourne un flux vers le fichier.

 Pour écrire dans le fichier, ouvrir EN ÉCRITURE, indiquer ">" devant le fichier.

° Utiliser alors la fonction print FLUX string pour écrire avec ce même flux.

- ouverture externe, fichier  à traiter indiqué en argument du script

° On utilise l'opérateur diamant <> pour récupérer l'argument en entrée

while ($ligne = <>) { --> exemple d'utilisation dans une boucle "while", lecture ligne par ligne. Chaque ligne est ici enregfistrée dans la variable $ligne ; donc une nouvelle ligne à chaque tour de boucle.

La boucle s'arrête lorsqu'il n'y a plus rien à lire.

Deux variables magiques : $_ est la valeur de la ligne courant et $. est le numéro de la ligne courante.

° Aussi, conventionnellement est défini @_ qui contient la liste des arguments. $_[] permet d'accéder à un élément de cette liste.

Par exemple, $_[0] est le premier élément donné en argument.

L'ouverture permet d'atteindre le contenu texte de notre fichier.

Ce qui nous intérèsse c'est la manière dont on va traiter ce contenu textuel, voici les fonctions usuelles et utiles à cet égard.

TRAITEMENT DU CONTENU TEXTUEL

° Fonction split() : premier argument, expression régulière notée entre // permettant de définir la délimitation, second argument chaîne de caractères à découper.

Exemple

$cible = "Un Deux Trois Quatre";

@table = split(/ /g,$cible);

Ici on récupère le tableau table les différentes séquences issues du découpage de cible avec l'espace pour délimiteur. Retourne la liste de séquences si affectation à une liste @ ou le nombre de séquences si affectation à un scalaire $.

Ainsi, on obtient :

$table[0] : "Un"

$table[1] : "Deux"

etc.

° Concaténation de deux chaînes de caractères avec l'opérateur .

Exemple

$a = "moi"

$b = "je"

$a . $c -> "moi je"

° opérateur répétition x

Exemple "a" x 3 -> "aaa"

° Majusculer up() et minusculer lc() : texte à modifier en argument.

° Fonction index() vérifie si une chaîne de caractères est contenue dans une autres ; premier argument, la sous-chaîne et second argument, la chaîne.

Renvoie -1 si faux, 0 si vrai.

Permettra notamment de compter le nombre d'ouccurences d'une certaine expression d'un texte.

° Fonction length() permet de donner la taille d'une chaîne de cacaractères.

Un argument : une chaîne de caractères. Renvoie l'entier correspondant à la taille.

FERMETURE FICHIER

Après avoir traité les données, penser à fermer le flux ouvert précédemment.

° Fonction close() : un argument, le nom du flux donné dans open(). <> si ouverture externe, via entrée standard.

Nous verrons dans le prochain article un peu plus profondémment l'utilisation des expressions régulières.

Kévin Deturck

Retour à Perl
Retour à l'Accueil