Foro - Perl en Español

por **carlosjrf88** » 2012-04-16 13:46 @615

Ya he arreglado lo de los nombres y me salen bien. La verdad es que no tengo ni idea de cómo unir ambos programas, el de nombres aleatorios y el de contar, si me pudieras dar alguna pista sería de mucha ayuda.

#!/usr/bin/perl
my @caracteres = (
    'Rodriguez-Fernandez',
    'Carlos Baena-Rey',
    'Alfredo Sanchez-Pelaez',
    'Rafael Rodriguez-Sanchez',
    'Benjamin Navas-Lopez',
    'Juan'
);
 
my $cuantas_veces_sale;
for (0 .. 21) {                                       # 22 veces
    $rand = int rand(@caracteres);                    # elegimos uno al azar
    $cuantas_veces_sale{ $caracteres[$rand] }++;      # le contamos una aparición más
}
 
for my $nombre (sort keys %cuantas_veces_sale) {      # Para cada uno de los encontrados, ordenados
    print "$nombre = $cuantas_veces_sale{$nombre}\n"; # lo sacamos en pantalla
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **carlosjrf88** » 2012-04-18 03:07 @172

Muchas gracias, ya tengo arreglado eso. Ahora tengo que hacer lo mismo pero para datos leídos desde entrada estándar. Este es mi programa, pero no me sale bien:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
 
 
my %cuantas_veces_sale;
 
print "Rodriguez Martin, Carlos"; 
chop($nombre=<STDIN>); 
print "Gonzalez Blanco, Raul"; 
chop($nombre=<STDIN>); 
print "Martin Martin, Juan"; 
chop($nombre=<STDIN>); 
print "Gonzalez Blanco, Raul"; 
chop($nombre=<STDIN>); 
print "Baena Rey, Alfredo"; 
chop($nombre=<STDIN>); 
print "Martin Martin, Juan"; 
chop($nombre=<STDIN>); 
print "Gonzalez Blanco, Raul"; 
chop($nombre=<STDIN>); 
print "Rodriguez Martin, Carlos"; 
chop($nombre=<STDIN>); 
print "Ruiz Leon, Maria"; 
chop($nombre=<STDIN>); 
print "Navas Lopez, Juan"; 
chop($nombre=<STDIN>); 
print "Rodriguez Martin, Carlos"; 
chop($nombre=<STDIN>); 
print "Ruiz Leon, Maria"; 
chop($nombre=<STDIN>); 
print "Martin Martin, Juan"; 
chop($nombre=<STDIN>); 
print "Gonzalez Blanco, Raul"; 
chop($nombre=<STDIN>); 
print "Perez Alvarez, Juan"; 
chop($nombre=<STDIN>); 
print "Aguado Lopez, Benito"; 
chop($nombre=<STDIN>); 
print "Ruiz Leon, Maria"; 
chop($nombre=<STDIN>); 
print "Carmona Rodriguez, Maria"; 
chop($nombre=<STDIN>); 
 
@datos=($nombre); 
print EJEMP @datos; 
 
my $cuantas_veces_sale;
for (@datos) { 
 $cuantas_veces_sale{ $datos[$nombre] }++;
}
 
for my $nombre (sort keys %cuantas_veces_sale) {
print "$nombre = $cuantas_veces_sale{$nombre}\n";
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-04-18 03:45 @197

No hace falta dar tantas vueltas... repites muchas líneas... y me parece que no has pensado lo que hace cada una... Por ejemplo... en la línea 7 lees un nombre y lo guardas en $nombre, pero ese valor se pierde en la línea 9. Y así con todas las demás.

La solución pasa por meter las sentencias de lectura desde el teclado en un bucle, que se ejecuta hasta que el usuario meta un valor especial. Y en el mismo bucle haces la estadística.

por **carlosjrf88** » 2012-04-19 12:14 @551

Entiendo lo que dices que repito los valores y se pierden en las siguientes líneas, pero no sé qué bucle meter para que me salga en la estadística. Llevo toda la tarde liado y por más que pruebo no encuentro solución. Soy muy torpe en esto de la programación y Perl.

por **explorer** » 2012-04-19 13:47 @616

Si no sabes algo de la sintaxis de Perl, pues nos preguntamos, que para eso estamos. Perl cuenta con una amplísima documentación, la mitad de ella ya casi traducida.

Si tienes problema con la informática en general, hay abundante información en Internet. Métodos, algoritmos, patrones de desarrollo...

Lo que no puedes es esperar a que alguien te resuelva siempre los problemas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
for ( 1 .. 18 ) {
    $nombre = <>;
    chomp $nombre;
    push @datos, $nombre;
}
 
my %cuantas_veces_sale;
for $dato ( @datos ) {
    $cuantas_veces_sale{ $dato }++;
}
 
for $nombre ( sort keys %cuantas_veces_sale ) {
    print "$nombre = $cuantas_veces_sale{$nombre}\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Programa que cuente las veces que se repite un nombre

Re: Programa que cuente las veces que se repite un nombre

Publicidad

Re: Programa que cuente las veces que se repite un nombre

Re: Programa que cuente las veces que se repite un nombre

Re: Programa que cuente las veces que se repite un nombre

Re: Programa que cuente las veces que se repite un nombre

Re: Programa que cuente las veces que se repite un nombre

¿Quién está conectado?