22. kasu praktikoa: N karaktereko hitzak

     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

Utzi erantzuna

Zure e-posta helbidea ez da argitaratuko. Beharrezko eremuak * markatuta daude