Comment lire plusieurs lignes d'un fichier en Perl

Le langage de programmation Perl a été initialement conçu pour traiter les rapports. Il possède de puissantes fonctions de traitement de texte, y compris la lecture des lignes à partir d'un fichier texte. Vous pouvez placer chaque ligne du fichier dans un tableau, puis de traiter un certain nombre de lignes. La fonction «ouverte» est utilisé pour ouvrir le fichier. Le fichier peut être ouvert en lecture seule, écriture seule, ajoutez seulement ou toute combinaison de permissions. Après le traitement du fichier, vous devez utiliser la fonction "fermer" pour fermer le fichier.

Instructions

1 Ouvrir un fichier vierge dans un éditeur de texte.

2 Tapez la ligne

! / Usr / bin / perl

pour lancer le script Perl.

3 Tapez la ligne

my $ num = 10;

pour créer la variable qui contient le nombre de lignes que vous voulez lire.

4 Tapez la ligne

my $ LINE_NUM = $ num-1;

pour soustraire un (1) à partir du nombre de lignes que vous voulez imprimer. Vous faites cela parce qu'un tableau commence à compter à partir de zéro (0), non (1).

5 Tapez la ligne

FILE ouvert, "<", "nom de fichier" ou mourir !; $

pour ouvrir le fichier qui contient les lignes. Remplacer "filename" avec le nom du fichier que vous souhaitez ouvrir. Le fichier sera ouvert en lecture seule.

6 Tapez la ligne

mes @lines = <fichier>;

de placer le contenu du fichier dans un tableau. Chaque ligne du fichier sera un élément distinct dans le tableau.

7 Tapez les lignes

for ($ x = 0; $ x <= $ LINE_NUM; $ x ++)

{

@lines d'impression [$ x];

}

d'imprimer le nombre de lignes que vous définissez dans la variable "$ num". Vous pouvez modifier le code entre les accolades à tout traitement de la ligne que vous préférez.

8 Tapez la ligne

FILE près;

pour fermer le fichier ouvert.

9 Enregistrez le fichier sous "read_lines.pl".

dix Tapez la commande "perl read_lines.pl" à une invite de commande pour exécuter le script.