Testu-editore guztiek izan ohi duten Bilatu funtzioa inplementatuko dugu Perl erabiliz: programak regExpOrok.pl izena izango du, eta komando-lerrotik fitxategi-izena eta bilaketa-patroia jaso, eta patroia betetzen duten lerroak bistaratuko ditu pantailan. Letra larrien eta xeheen arteko bereizketarik ez du egin behar programak.
Adibidez, esaeraLabur.txt fitxategian beti hitza daukaten esaeren bila bagabiltza:
>perl regExpOrok.pl esaeraLabur.txt beti
Beti on nahi duena, maiz gaizki
Nagia, beti lantsu
>
Hona programa:
regExpOrok.pl
#!/usr/bin/perl
use warnings;
use strict;
open(FITX, $ARGV[0]) or
die(“Ezin $ARGV[0] fitxategia irekin”);
my $patroia = $ARGV[1];
my $lerroa;
while ($lerroa = <FITX>) {
print ($lerroa) if ($lerroa =~ m/$patroia/i);
}
close(FITX);
Jaitsi regExpOrok.pl fitxategia
kepa says:
#!/usr/bin/perl
use warnings;
use strict;
# Sarrera: fitxategi baten
izena eta hitz bat,
# Irteera: fitxategi horretan hitza zenbat aldiz agertu den
# Adibidea: perl
fitxategian-bilatu-eta-kontatu-hitza.pl testua.txt etxe
# polit hitza 23 aldiz agertu da
my
($fitx_izena, $lerroa, $agerpenak, $hitza);
# Ireki fitxategia eta bilatu nahi den hitza (edo patroia)
$fitx_izena
= $ARGV[0];
$hitza
= $ARGV[1];
$agerpenak
= 0;
open
(FI, “$fitx_izena”);
# lerroak banan-banan irakurri eta tratatu
while ($lerroa = <FI>) {
if ($lerroa =~ /W$hitza/i) {
$agerpenak++;
}
}
print
“$hitza $agerpenak aldiz agertu dan”;
print “agur! n”;
Hitz bat bilatu fitxategian
Egin Perl
programa bat fitxategi bat eta hitz bat emanda, irteeran hitz horren
agerpen-kopurua idatziko duena.
Adibidez:
perl -w fitxategian-bilatu-eta-kontatu-hitza.pl
testua.txt etxe
etxe hitza 23 aldiz agertu da
agur!
fitxategian-bilatu-eta-kontatu-hitza.pl
koldo says:
#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;
# Sarrera: web bat eta hitz bat
# Irteera: web horretan hitzaren agerpen-kopurua
# Adibidez: perl
webean-bilatu-hitza.pl http://www.sustatu.com Athletic
my ($html, $weba, $agerpenak, $hitza);
# Jaso weba eta bilatu nahi den hitza (edo patroia)
$html = $ARGV[0];
$html = “http://” . $html;
$hitza = $ARGV[1];
$agerpenak = 0;
$weba = get($html);
# bilatu hitz horren agerpen guztiak
while ($weba =~ /W$hitza/gi) {
$agerpenak++;
}
print
“$hitza $agerpenak aldiz agertu dan”;
print “agur! n”;