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
