Ejercicio Cinco. Por el $_ te la $1

Mostrar las 50 palabras que más se repiten en un texto ordenadas por número de apariciones.

use File::Slurp;

my $text = read_file( $ARGV[0] ) ;
my @palabros=split(" ", $text);
my %dict;

#En minúscula
for (@palabros){
  if($_ =~/^([a-záéíóú])+$/){
    $dict{$_}=$dict{$_}+1;
  }


}

#print "Todas\n";

#  foreach my $llave (keys %dict){
#    print "$llave => $dict{$llave}\n";
#  }

print "\nOrdenado\n";

$contador = 0;

for (sort {$dict{$b} <=> $dict{$a}} keys %dict ) {

 print "$_ => $dict{$_}\n";

 $contador++;

    if($contador==50){
        last;
    }

}

Ejercicio Cuatro (con Eva Hache)

Ahora vamos a poner un tag <p> para cada párrafo:

#!/usr/bin/perl

use File::Slurp;

my $text = read_file( $ARGV[0] ) ;
my @parrafos=split("\n\n", $text);

for (@parrafos){
  print "<p>".$_."</p>\n";
}

Tachán!

Ejercicio 1 y 2. Creación y depuración de un programa en Perl

Una imagen vale más que mil palabras.