Foro - Perl en Español

Buenas.

¿Cómo hago para imprimir las líneas que empiencen con una palabra y seguir imprimiendo hasta que encuentre una línea que empiece con cierta palabra?

Por ejemplo, quiero imprimir las líneas entre hola y adiós si la entrada es:

Código: Seleccionar todo

hola
prueba de mensaje
continua prueba
adios

Quiero la salida:

Código: Seleccionar todo

hola
prueba de mensaje
continua prueba

Primero hago un if (/^hola/) pero ¿cómo hago para avanzar de línea?

Muchas gracias.

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

Hace poco hemos comentado ese caso.

También hay otra forma (como cosa rara en Perl ) con Tie::File


Claro, pero no es necesaria, de hecho creo que el método usado con expresiones regulares y usando while es mucho mejor.