16. kasu praktikoa: N. bat-egitea aurkitu

Bilaketa programa bat garatuko dugu, patroi bat eman eta haren N. agerpena edo bat-egitea topatzen duena.
Sarrera gisa, komando-lerrotik fitxategi-izena, bilaketa-patroia eta N zenbaki bat jaso eta irteera, patroiaren N. agerpena eragin duen lerroa izango da. Hona adibide gisa, esaeraLabur.txt fitxategian “ez” patroiaren 2. agerpena bilatzen duen programa deia:

>perl agerpenN.pl esaeraLabur.txt ez 2
topatu dut!
Bat eman eta bi hartu, gure etxean ez berriz sartu

Hona programa:

agerpenN.pl
 #!/usr/bin/perl
 use warnings;
 use strict;
 my $fitx = $ARGV[0];
 my $patroi = $ARGV[1];
 my $zenb = $ARGV[2];
 my $kop = 0;
 my $lerro,
 open(FITX, “$fitx”) ||
      die(“Ezin $fitx fitxategia zabaldu!n”);
 while ($lerro = <FITX>) {
      while ($lerro =~ /$patroi/gi) {
            $kop++;
            if ($kop == $zenb) {
                 print (“topatu dut!n”);
                 print ($lerro);
            }
      }
 }

Jaitsi   agerpenN.pl   fitxategia

Utzi erantzuna

Zure e-posta helbidea ez da argitaratuko. Beharrezko eremuak * markatuta daude