Comment trouver les numéros de ligne utilisant Perl
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
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. "
