Tengo este fichero que es una prueba que estoy haciendo. En el fichero entrada tengo varias líneas separadas por ";" y que con la función split las voy guardando en variables para luego en el fichero salida mostrar las que me interesen. La cosa es que con este código me lo hace para todas las líneas del fichero y en salida obtengo las columnas que quiero pero para todas las líneas del fichero. Es una chorrada porque sólo quiero coger las primeras 5 líneas por ejemplo. Es una chorradilla en una línea de comando a ver si me podéis echar una mano... El código que tengo es el siguiente:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- my $entrada="C:/Pruebas/entrada.txt";
- my $salida ="C:/Pruebas/salida.txt";
- open (ENTRADA,"<$entrada") || die "ERROR: No puedo abrir el fichero $entrada\n";
- open (SALIDA,">$salida") || die "ERROR: No puedo abrir el fichero $salida\n";
- while ($linea=<ENTRADA>)
- {
- my($campo1,$campo2,$campo3,$campo4) = split(/;/, $linea);
- print SALIDA "$campo1;$campo3\n";
- }
- close (ENTRADA);
- close (SALIDA);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Muchas gracias de antemano y un saludo...