Argumentu gisa fitxategi-izena eta N zenbaki bat jaso eta, fitxategi horretan dauden N karaktereko hitz guztiak pantailaratzen dituen programa nahi dugu oraingoan. Bukaeran, topatutako hitz kopurua ere bistaratu behar du programak.
Algoritmoa:
1. Argumentuak irakurri
1.1. Egiaztatu argumentu kopurua zuzena dela
1.2. Fitxategia zabaldu
2. Irakurri fitxategia lerroz lerro
2.1. Ezabatu puntuazio-markak
2.2. Lerroa hitzetan banatu
2.3. Hitz bakoitzeko:
2.3.1. Baldin karaktere kopurua == N
Pantailan bistaratuko
Kontagailua++
3. Bistaratu N luzerako hitz kopurua
Programa:
luzeraN.pl
#!/usr/bin/perl
use warnings;
use strict;
my $lerro;
my $kopurua = 0;
my $luzera = $ARGV[1];
if ($#ARGV == 1) {
open(FITX,$ARGV[0]) ||
die (“Ezin $ARGV[0] fitxategia zabaldun”);
}
else {
die(“Bi argumentu behar dira: fitxategi-izena eta hitz-
luzera”);
}
while ($lerro = <FITX>) {
chomp($lerro);
$lerro =~tr/;:,.!?-//d;
foreach my $hitza (split(/s+/, $lerro)) {
if (length($hitza) == $luzera) {
print (“$hitzan”);
$kopurua++;
}
}
}
print (“n$luzera karakteretako $kopurua hitz daude
fitxategiann”);
Jaitsi luzeraN.pl fitxategia