Gonzalez Rodrigo
Perez Pedro
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Soy nuevo en Perl y estoy intentando hacer un programa que lea de la entrada estándar, lo guarde en un archivo, lea el archivo y señale qué nombres se repiten.
Algo así como esto:
y obtener una salida como sigue:
Using text Syntax Highlighting
Perez Pedro 2
Gonzalez Rodrigo 1
Gonzalez Rodrigo 1
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Estoy bloqueado y no sé cómo continuar; he estado mirando en el foro y en Internet y no me termino de aclarar. Este es el código que he hecho:
Using perl Syntax Highlighting
print "Escribe cinco apellidos y nombres\n";
print "Cuando termines pulsa Ctrl+Z\n";
my @nombres=<STDIN>;
open (ENTRADA,">c:/perl/entrada.txt\n");
print ENTRADA @nombres;
open (SALIDA,">c:/perl/salida.txt\n");
if ($nombres[0] eq $nombres[1]){
print SALIDA @nombres;
}
close (ENTRADA);
close (SALIDA);
print "Cuando termines pulsa Ctrl+Z\n";
my @nombres=<STDIN>;
open (ENTRADA,">c:/perl/entrada.txt\n");
print ENTRADA @nombres;
open (SALIDA,">c:/perl/salida.txt\n");
if ($nombres[0] eq $nombres[1]){
print SALIDA @nombres;
}
close (ENTRADA);
close (SALIDA);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Tengo problemas con la estructura de control, no sé cómo definirla. ¿Alguien tiene alguna idea de cómo continuar?
Gracias y un saludo.
Gonzalo
Otra cosa es aprender todas posibilidades que esa sintaxis te es capaz de ofrecer.
