Komando-lerrotik fitxategi-izena eta hitz bat jaso, eta hitz horren eta bere hurrengoaren agerpen guztiak pantailaratuko dituen programa da hurrengoa. Adibidez, “ez” hitzaren eta bere hurrengoaren agerpen guztiak bistaratu nahiko bagenitu:
>perl bilatuHitzUrren.pl esaeraZaharrak.txt ez
ez duenak
ez du
ez da
…
ez eska
ez dira
Guztira 81 agerpen
>
Horra, esaeraZaharrak.txt fitxategiko “ez” hitzaren eta bere hurrengoaren (laguntzailearen) agerpen guztiak.
Amaieran, topatutako hitz-bikote kopurua ere bistaratuko du programak.
bilatuHitzUrren.pl
#!/usr/bin/perl
use strict;
use warnings;
# Fitxategia eta hitz bat irakurri, eta hitza eta bere
# hurrengoaren agerpen guztiak bistaratu
# Fitxategia zabaldu
open (FI, $ARGV[0]) ||
die(“Ezin $ARGV[0] fitxategia zabaldu!n”);
# Bilaketa hitza jaso
my $hitza = $ARGV[1];
my $zenbat = 0;
my $lerro;
while ($lerro = <FI>){
chomp($lerro);
# $hitza-ren eta bere hurrengoaren agerpenak
# bilatu lerroan
while ($lerro =~ /s+$hitzas+(w+)/gi) {
# Adierazpen erregularraren aukerak:
# g globala (agerpen guztiak)
# i letra larri/xeheak ez bereizi
# $1 aldagaia $hitza-ren hurrengoa
print “$hitza $1n”;
$zenbat++; # $zenbat = $zenbat + 1;
}
}
print(“Guztira $zenbat agerpenn”);
close FI;
Jaitsi bilatuHitzUrren.pl fitxategia