Perl est un langage de programmation de scripts moderne pour écrire des programmes informatiques de tout niveau de complexité. Les programmes Perl sont souvent données pour travailler avec des fichiers . Fichiers comprennent plusieurs lignes et vous pouvez avoir besoin de connaître le numéro d'une ligne qui contient des données spécifiques . Une boucle Perl vous permet d'accéder et de compter les lignes Instructions
1

déclarer un tableau Perl avec la commande:

@ data = ();
2 < p > Ouvrir un fichier à lire dans votre script Perl avec la commande:

ouvert (INPUT , " output.txt ");

Notez que " output.txt " est un exemple des données fichier et "INPUT" est le handle de fichier pour désigner le fichier à l'intérieur du script
3

Lire dans les lignes des fichiers sur le tableau: .

@ data = ;
4

affecter une valeur initiale de zéro à la "count" variable qui est le compteur de lignes dans le programme :

$ count = 0;

5

Utilisez la boucle Perl " foreach " pour aller bien chaque ligne dans le fichier: Photos

foreach $ line ( @ data) { }

6

Placer le compteur de lignes à l'intérieur de la boucle :

foreach $ line (@ data) {

$ count + +; }

Notez que le "count " variable augmente progressivement avec chaque itération de la boucle et sa valeur correspond au numéro de ligne dans le fichier .
7

Insérez un "if" dans la boucle pour trouver le numéro d'un particulier ligne . Par exemple, vous devez connaître le numéro de la ligne qui commence par le mot «progrès». Le morceau de code qui suit le fait

foreach $ line ( @ data) {

$ count + +; .

If ($ ligne = ~ /Progress /) {print " Le numéro de ligne est $ count "} }

Les résultats du programme ressemble à " Le numéro de ligne est 12. "