Soy nuevo en perl, estoy haciendo un script que lee la información a partir de un archivo de texto de la siguiente estructura:
- Código: Seleccionar todo
1 2 r w 3 t 4 r 4b v 5
a b c b d f g g g
a b c b d f g g g
a b c b d f g g g
a b c b d f g g g
s 2 r w 3 t 4 r 4b v 5
Por ejemplo me interesa extraer la información contenida en la columna 1 y 6:
Ya tengo el siguiente código:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
$filename = $ARGV[0];
open(FILE, $filename) || die "¡Error!\n\n";
open SALIDA, ">salida1";
while(my $lines = <FILE>){
chomp($lines);
my @field = split (/\s+/, $lines);
print SALIDA "columns: $field[1]\n";
}
close FILE;
$filename = $ARGV[0];
open(FILE, $filename) || die "¡Error!\n\n";
open SALIDA, ">salida1";
while(my $lines = <FILE>){
chomp($lines);
my @field = split (/\s+/, $lines);
print SALIDA "columns: $field[1]\n";
}
close FILE;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El resultado es la columna 1, incluyendo el número "1" de la primera fila y la letra "s" de la última, ¿Qué puedo hacer para extraer solo la información contenida entre la primera y última fila?
Gracias