Foro - Perl en Español

por **boteropepe** » 2010-06-02 11:45 @531

Hola, quiero hacer un programa en el que, según aparezca cierta información en cada línea, ésta se imprima o no; hay un caso en que la información que quiero obtener aparece en varias líneas, pero no sé cómo decir que se imprima desde la línea 'x' hasta la línea 'y' que me sirva de tope. Pongo un ejemplo de texto, por si sirve:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$IN... Nombre: Paco

$IN... Edad: 38

$IN... Estado civil: casado

$IN... Número de hijos: 

$IN...                0

$IN...                1

$IN...                2       [con un número de líneas variable en este caso]

$IN... Sexo:

$IN...        hombre

$IN...        mujer
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

En este texto, solo querría sacar la línea referida a la edad y las líneas referidas al número de hijos. De momento, lo he hecho con 'if', 'elsif', etc. (si la línea contiene 'Edad', imprime), pero no sé cómo recuperar todas las líneas del campo 'Número de hijos' de ese modo (teniendo en cuenta que no se sabe cuántas líneas van a aparecer tras la primera referida al número de hijos y que 'Sexo' siempre funcionará como tope). He probado a utilizar '$´', pero no sé por qué no me sirve de nada; también he indefinido '$/' para poder incluir más de una línea en $_, pero no sé cómo decir que la línea 'Sexo' sirve de tope... Nada, que no sé cómo hacerlo.

Muchas gracias de antemano

#!/usr/bin/perl
use strict;
use warnings;
 
use utf8;
use open 'locale';
 
my $en_sección_hijos = 0;
 
while (<DATA>) {
    chomp;
 
### Cambios de sección
    if (/hijos/) {              # si estamos con los hijos
        $en_sección_hijos = 1;  # lo indicamos en la bandera
        next;                   # y pasamos a la siguiente línea
    }
 
    if (/Sexo/) {               # si hemos llegado al sexo
        $en_sección_hijos = 0;  # los hijos se acabaron
        next;                   # y pasamos a la siguiente línea
    }
 
### Secciones
    if ($en_sección_hijos) {    # si estamos con los hijos
        print "Hijo: $_\n";     # lo mostramos
        next;                   # y pasamos a la siguiente línea
    }
 
### Entradas normales
    if (/(.*?):\s*(.*)/) {      # ejemplo de una entrada cualquiera
        print "$1: $2\n";
    }
 
    # ...
}
 
__DATA__
$IN... Nombre: Paco
$IN... Edad: 38
$IN... Estado civil: casado
$IN... Número de hijos:
$IN...                0
$IN...                1
$IN...                2
$IN... Sexo:
$IN...        hombre
$IN... Nombre: Carmen
$IN... Edad: 35
$IN... Estado civil: casado
$IN... Número de hijos:
$IN...                0
$IN...                1
$IN... Sexo:
$IN...        mujer
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **boteropepe** » 2010-06-07 06:44 @322

¡Muchas gracias!

Foro - Perl en Español

Imprimir una línea y las siguientes a esa, hasta un tope

Imprimir una línea y las siguientes a esa, hasta un tope

Publicidad

Re: imprimir una línea y las siguientes a esa, hasta un tope

Re: Imprimir una línea y las siguientes a esa, hasta un tope

¿Quién está conectado?