Foro - Perl en Español

Hola a todos,

tengo un problemilla de novato con Perl, a ver si alguien me puede echar una mano.

Tengo que hacer un programa que genere nombres y apellidos al azar y luego otro programa que lea el archivo donde se guardan los nombres y los cuente indicando por pantalla las veces que se repite cada uno.

Hasta aquí todo bien. El problema que tengo es que el nombre del archivo debe ser variable y el programa debe admitir que se le pasen los nombres tanto por nombre de archivo como por entrada estándar.

He leído varios manuales de Perl pero no soy capaz de dar con la tecla. ¿Alquién podría echarme una mano?

Gracias.

Bienvenido a los foros de Perl en Español, anton73.

Para el primer problema, hay un paquete que sirve precisamente para generar nombres al azar: Data-RandomPerson.

Para el segundo problema, para leer los archivos pasados en la línea de argumentos, como a través de la entrada estándar, no tienes que hacer nada: Perl por defecto abre los archivos indicados en la línea de argumentos, y se pueden leer de la misma manera que si fuera la entrada estándar.

Ejemplo, como argumento:
Ejemplo, como entrada estándar:

Muchas gracias, explorer, por tu rápida contestación.

Llevo pocos días con Perl y voy aprendiendo todo lo rápido que puedo, pero no me queda claro cómo usar los paréntesis angulares (<>).

He estado probando varias alternativas. En la primera me muestra los nombres y apellidos por pantalla pero no me dice cuántas veces se repite cada uno. En la segunda me abre el fichero donde están almacenados los datos... ¿Me podrías indicar cómo colocar el bucle while?

Este es el script que uso para contar los nombres. Gracias otra vez.

%cuantas_veces_sale;
open(LEER,"<nombres.txt");
while (my $nombre = <LEER>) {
chomp $nombre;
$cuantas_veces_sale{$nombre}++;
}
close(LEER);
for my $nombre (keys %cuantas_veces_sale)
{
print "$nombre : $cuantas_veces_sale{$nombre}\n";
}

Hola.

Lo primero y antes de que se me olvide: nuestro lenguaje se llama "Perl", no "PERL" (no es una sigla sino un nombre propio). También verás por ahí "perl", y en ese caso se refiere al propio programa intérprete.

Luego, en cuanto a tu programa que cuenta el número de veces que aparece cada nombre, a mí sí que me funciona:

En cuanto a la forma de colocar el while(), es idéntica a como lo tienes en el programa, salvo que no necesitas hacer ni un open() ni un close(). Ejemplo:

El operador diamante <> equivale a poner <STDIN>, que significa "leer un registro desde la entrada estándar". Otra forma de escribirlo es así: readline() (más información en perldoc -f readline).

P.D. Usa el marcado de sintaxis Perl para marcar tu código Perl dentro de estos mensajes. Queda más bonito y legible.

Gracias de nuevo,
creo que ya lo he entendido.