Programa honek fitxategi bat jaso eta jarraian bi karaktere berdin dituzten hitzak bistaratzen ditu.
Hona programaren irteera esaeraZaharrak.txt fitxategia pasatuz gero:
>perl biKarakBerdin.pl esaeraZaharrak.txt
zorra
Alferrak
Alferrarendako
…
harra
barrenago
>
Programa bera:
biKarakBerdin.pl
#!/usr/bin/perl
use strict;
use warnings;
open (FITX, $ARGV[0]) ||
die(“Ezin $ARGV[0] fitxategia zabaldun”);
my @hitzak;
my $lerro;
while ($lerro = <FITX>) {
chomp($lerro);
# Banatu lerroa hitzetan.
# Banatzaileak: . , ; : ? ! eta zuriunea
@hitzak = split(/[.?!;:,s]+/, $lerro);
# Lerroko hitz bakoitzeko
foreach my $h (@hitzak) {
# Bistaratu bi karaktere berdin baditu jarraian
print (“$hn”) if ($h =~ /([a-z])1/);
}
}
close(FITX);
Jaitsi biKarakBerdin.pl fitxategia
Aldaketa gutxi batzuk eginez, karaktere bikoiztuen ordez hitz bikoiztuak topatzen dituen programa idatz genezake. Honela:
hitzBikoiztuak.pl
#!/usr/bin/perl
use strict;
use warnings;
open (FITX, $ARGV[0]) ||
die(“Ezin $ARGV[0] fitxategia zabaldun”);
my @hitzak;
my $lerro;
while ($lerro = <FITX>) {
chomp($lerro);
while ($lerro =~/b(w)+bs+b1b/g) {
print (“Bikoiztutako hitza: $1n”);
print (“$lerron”);
}
}
close(FITX);
Jaitsi hitzBikoiztuak.pl fitxategia