#!/usr/bin/perl -w

use 5.034;

# use feature "unicode_strings";

# use Data::Printer;
if (defined $ARGV[0]){
    if (0+$ARGV[0] ne $ARGV[0] || $ARGV[0] <= 0){
	die "$0 <num>     muestra num palabras al azar";
    }
}
my $num = $ARGV[0] // 3;

open IN, "<:encoding(iso-8859-1)", "../dict/0_palabras_todas.txt" or die $!;             # lo trinqué en github
my @palabras = <IN>;
chomp (@palabras);
close IN;

my (@selection, $count, $j);
for (1 .. $num){
    $j = int (1+scalar(@palabras)*rand());
    $count++;
    push @selection, $palabras[$j];
}

if (defined $count){
    say "Selección de $count palabras:";
    say "@selection";            # p 
}else{
    say "No hubo suerte: ponga su nombre y continue...";
}

exit 2;

__END__
  
El script intenta ayudar a solucionar el problema de la 'página en blanco'
  de periodistas.
  La versión 2 debería incluir directamente el resultado de la búsqueda DRAE.