Programa honek, sarrera gisa hitz bat eman eta bere definizioa topatzen du EH_hiztek.txt hiztegian. Bilaketa berri bat egin nahi dugun bakoitzean programa abiarazten ibil ez gaitezen, nahi adina bilaketa egin ahal izango ditugu, programa amaitzeko “q” letra sakatzea nahikoa izango delarik.
Hona programaren exekuzio-adibidea:
>perl EhDefinizio.pl
Idatzi bilaketa terminoa. Amaitzeko sakatu q: abade
abade: Gizonezkoentzako monasterio bateko burua,
apaizteko esku duena.
Idatzi bilaketa terminoa. Amaitzeko sakatu q: ai
ai: Atsekabea, oinazea… adierazteko erabiltzen den
hitza.
Idatzi bilaketa terminoa. Amaitzeko sakatu q: q
>
EhDefinizio.pl Perl programaren kodea:
#!/usr/bin/perl
# Sarerra:bilaketa terminoa
# Irteera: bere defizioak
use strict;
use warnings;
my (@hiztegia, @eremuak, $lerro, $bilatu);
open(FI, “EH_hiztek.txt”) ||
die (“Ezin EH_hiztek.txt fitxategia zabaldu!n”);
@hiztegia = <FI>;
close (FI);
print(“Idatzi bilaketa terminoa. Amaitzeko sakatu q: “);
$bilatu = <STDIN>;
chomp($bilatu);
while ($bilatu ne “q”) {
# hiztegia irakurri
foreach my $sarrera (@hiztegia) {
# sarrerari dagozkion eremuak gorde array-an
@eremuak = split(/t/,$sarrera);
if ($eremuak[0] =~ /^$bilatu$/) {
# Bistaratu sarrera hitza eta bere definizioa
print “$eremuak[0]: “;
print “$eremuak[3]n”;
}
}
print(“Idatzi bilaketa terminoa. Amaitzeko sakatu q: “);
$bilatu = <STDIN>;
chomp($bilatu);
}
