¡ Cómo podréis ver, soy nuevo por estos lares ! ¡ y en Perl también !
Bien, pues me he dispuesto a aprender cosas nuevas, y claro, esto conlleva muchas preguntas, y muchos comederos de cabeza, ¡ cuando no se sabe ! jeje.
¡Bueno, al tajo!
Pues estoy realizando un código, en el cual leo de un .txt unos datos (números nombre) Mediante sort(), ordeno los números, que es lo que realmente quiero, pero luego, necesitaría guardar los datos en dos archivos, en uno los números, y en otro, los nombres, en el mismo orden.
O bien, guardarlos dentro de un archivo, en una línea el nombre y en la siguiente, el número.
Aquí os dejo el código que he conseguido hacer, el cual ordena.
Using perl Syntax Highlighting
my $datos = "datos.txt";
my $final = "final.txt";
open (DATOS, "<$datos") or die "No existe el fichero $datos\n";
open (FINAL, ">$final");
my @datos = <DATOS>;
@datos = sort { $a <=> $b } @datos;
print FINAL @datos;
close (DATOS);
close (FINAL);
my $final = "final.txt";
open (DATOS, "<$datos") or die "No existe el fichero $datos\n";
open (FINAL, ">$final");
my @datos = <DATOS>;
@datos = sort { $a <=> $b } @datos;
print FINAL @datos;
close (DATOS);
close (FINAL);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Me gustaría realizar las dos opciones que propongo, para comprobar cuál me vendría mejor.
¡ Si alguien me echa una manita, se lo agradecería mil !
Saludos.
