• Publicidad

Extraer información de un archivo de texto

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Extraer información de un archivo de texto

Notapor asegurac » 2008-10-31 07:25 @351

Hola,

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:

Sintáxis: [ Descargar ] [ Ocultar ]
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;
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
asegurac
Perlero nuevo
Perlero nuevo
 
Mensajes: 34
Registrado: 2008-10-31 05:52 @286

Publicidad

Notapor explorer » 2008-10-31 07:46 @365

Bienvenido a los foros de Perl en Español, asegurac.

No entiendo muy bien la cuestión. Primero hablas de columnas 1 y 6 y luego hablas de la información que hay entre la primera fila y la última.

Si solo quieres imprimir las líneas que empiezan por 'a', es muy fácil:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl
while(<DATA>) {
    print if /^a/;
}

__DATA__
 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
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados