Foro - Perl en Español

Necesito crear un programa que cuente el número de veces que aparece un nombre en un fichero de texto y lo almacene por columnas. ¿Alguna idea? Gracias de antemano, el foro está siendo de gran ayuda.

Ese problema está comentado varias veces a lo largo de estos foros (usa el sistema de búsqueda).

Incluso se trata de un problema tan común que también está descrito en los perlfaq. Concrétamente, en el perlfaq6. Escribe en tu ordenador perldoc -q word y saldrá una sección llamada How can I print out a word-frequency or line-frequency summary? donde te explican que eso se resuelve de forma sencilla usando hashes.

Inténtalo, y si te atascas, avísanos.

He encontrado esto:

#!/usr/bin/perl

use strict;
use warnings;


my $archivo = 'nombres.txt';

my %Palabras;

open my $FILE, '<', $archivo or die("No pude abrir el archivo: $!");

while (my $linea = <$FILE>) {

chomp $linea;

$Palabras{lc $_}++ for split /\s+/, $linea;

}

close $FILE;




for my $palabra ( sort { $Palabras{$b} <=> $Palabras{$a} } keys %Palabras) {
print $Palabras{ $palabra } . " - " . $palabra . "\n";
}

Lo que me hace es contar las veces que se repite una palabra, lo que necesitaría sería que me contara las veces que se repite el nombre completo con apellidos. Sería algo así por si no me explico bien:


y lo que me mostrara el programa sería esto:


Gracias por la ayuda.

¡Ah!, pero es que entonces no estamos buscando palabras, sino conjuntos de palabras.

No queda más remedio que usar una expresión regular o, si se trata de palabras fijas, usar la función index() (perldoc -f index).

Tienes que leer todo el texto en una sola variable escalar, quitando los caracteres de avance de línea y sustituyéndolos por un espacio en blanco (para evitar los casos en los que un nombre de una persona aparezca partido al final de una línea y principio de la siguiente.

Luego, hacemos un bucle por los nombres que queremos buscar. Por cada uno, hacemos

y ya tenemos todas las $veces que aparece $nombre dentro del $texto.

¿Cómo hago para leer todo el texto en una variable escalar?

Lo que tendría que hacer sería abrir el archivo con los nombres y a partir de ahí contar las veces que se repite el nombre completo.

Estoy un poco perdido, gracias.

Ya lo he arreglado, ya me sale el programa, gracias.

No es tan sencillo... además de leer las líneas, hay que comprobar el último carácter de cada línea, para ver si es un blanco, o no:

Lo he hecho de esta manera:

y %cuantas_veces_sale;
open(DATOS,'<nombres.txt') or die "ERROR: No pude abrir el fichero: $!\n";
while (my $nombre = <DATOS>) {
chomp $nombre;
$cuantas_veces_sale{$nombre}++;
}
close(DATOS);

open(DATOS,'<nombres2.txt') or die "ERROR: No pude abrir el fichero: $!\n";
while (my $nombre = <DATOS>) {
chomp $nombre;
$cuantas_veces_sale{$nombre}++;
}
close(DATOS);

for my $nombre (sort keys %cuantas_veces_sale) {
print "$nombre = $cuantas_veces_sale{$nombre}\n";
}


Y me sale bien, me cuenta las veces que aparece cada nombre a partir de dos archivos.

Ahora necesito hacerlo también a partir de las generaciones de nombres aleatorios. He usado este programa:

#!/usr/bin/perl
@caracteres = qw (Rodriguez-Fernandez,Carlos Baena-Rey,Alfredo Sanchez-Pelaez,Rafael Rodriguez-Sanchez,Benjamin Navas-Lopez,Juan);

for ($x=0;$x<=21;$x++){

$rand = int(rand( @caracteres));
$caracter_rand = $caracteres[$rand];
print "$caracter_rand\n";

}

Lo que necesito ahora es a partir de los nombres aleatorios que obtengo, contarlos tal y como he hecho con el programa de antes, pero no me sale. ¿Cómo tendría que poner el programa para que sea igual al anterior?

¿Cómo puedo unir estos dos programas en uno? Sería sacar unos nombres aleatorios y contar las veces que se repiten.

Para los nombres aleatorios uso este programa:

#!/usr/bin/perl
@caracteres = qw (Rodriguez-Fernandez,Carlos Baena-Rey,Alfredo Sanchez-Pelaez,Rafael Rodriguez-Sanchez,Benjamin Navas-Lopez,Juan);

for ($x=0;$x<=21;$x++){

$rand = int(rand( @caracteres));
$caracter_rand = $caracteres[$rand];
print "$caracter_rand\n";

}

Para contar las veces que se repite un nombre completo a partir de un archivo uso este:

y %cuantas_veces_sale;
open(DATOS,'<nombres.txt') or die "ERROR: No pude abrir el fichero: $!\n";
while (my $nombre = <DATOS>) {
chomp $nombre;
$cuantas_veces_sale{$nombre}++;
}
close(DATOS);

open(DATOS,'<nombres2.txt') or die "ERROR: No pude abrir el fichero: $!\n";
while (my $nombre = <DATOS>) {
chomp $nombre;
$cuantas_veces_sale{$nombre}++;
}
close(DATOS);

for my $nombre (sort keys %cuantas_veces_sale) {
print "$nombre = $cuantas_veces_sale{$nombre}\n";
}


Necesito contar los nombres a partir del programa de generación de nombres aleatorios. He probado de varias maneras pero todas me dan error, ¿cómo sería?

Gracias por todo, el foro me está sirviendo mucho.

Dices que lo has probado de varias maneras, pero no has publicado esas pruebas, que es lo interesante.

Tienes mal definido @caracteres. qw() sirve para crear una lista de elementos a partir de un conjunto de palabras, pero tú no estás usando palabras sueltas, sino que se componen de nombre y apellidos.

Mejor así:


Te pido también que marques tu código con marcas Perl, para que salgan más bonitos y claros que no solo texto. Repasa la última parte de nuestras recomendaciones de publicación.