Sarrera gisa komando-lerrotik fitxategi-izena jaso, eta bere edukia hitzetan banatzen duen programa idatziko dugu. Hitzak array egitura batean gordeko ditu, ondoren beraien gainean edozein eragiketa aplikatu ahal izateko moduan. Guk, besterik gabe pantailan bistaratuko ditugu banan-banan, bukaeran fitxategiaren hitz kopurua bistaratuz.
Programa:
hitzezHitz.pl
#!/usr/bin/perl
use warnings;
use strict;
open(FITX, $ARGV[0]) ||
die(“Ezin $ARGV[0] fitxategia zabaldu!n”);
my $lerro;
my $hitzKop = 0;
my @hitzLerro;
my @hitzak;
while ($lerro = <FITX>) {
chomp($lerro);
$lerro =~ tr/.?!;:,-//d; # puntuazio-ikurrak ezabatu
# hitz banatzailea: zuriunea
@hitzLerro = split(/s+/, $lerro);
# lerroko hitzak zerrendara gehitu
push(@hitzak, @hitzLerro);
}
foreach my $hitz(@hitzak) {
$hitzKop++;
print(“$hitzn”);
}
print(“Hitz kopurua: $hitzKopn”);
Jaitsi hitzezHitz.pl fitxategia
