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.

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.

¿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.

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.