¿Cómo puedo eliminar caracteres entre < and > en Perl?

Question

Necesito escribir una secuencia de comandos Perl para leer en un archivo y eliminar cualquier cosa dentro de <>, incluso si están en líneas diferentes. Es decir, si la entrada es:

Hello, world. I <enjoy eating 
bagels. They are quite tasty. 
I prefer when I ate a bagel to 
when I >ate a sandwich. <I also 
like >bananas. 

Quiero que la salida sea:

Hello, world. I ate a sandwich. bananas. 

sé cómo hacer esto si el texto es el 1 de acuerdo con una expresión regular. Pero no sé cómo hacerlo con múltiples líneas. En última instancia, debo poder eliminar partes de una plantilla de manera condicional para poder generar archivos parametrizados para archivos de configuración. Pensé que Perl sería un buen lenguaje, pero todavía estoy aprendiendo el truco.

Editar: También necesita más de 1 instancia de <>

Answer 1

local $/; 
my $text = <>; 
s/<.*?>//gs; 
print $text; 

Answer 2

Es posible que desee echa un vistazo a un módulo de Perl Text::Balanced, que forma parte del núcleo de la distribución. Creo que será de ayuda para ti. En general, uno quiere evitar las expresiones regulares para hacer ese tipo de cosas. Si el texto del tema es probable que tenga un conjunto interno de delimitadores, puede ser muy complicado.

Answer 3

En Perl:

#! /usr/bin/perl 
use strict; 

my $text = <>; 
$text =~ s/<[^>]*>//g; 
print $text; 

La expresión regular sustituye cualquier cosa que empiece con un < través de la primera> (ambos inclusive) y lo reemplaza con nada. El g es global (más de una vez).

EDIT: incorpora los comentarios de Hynek y el caos

Answer 4

ineficaz forma de una sola línea

perl -0777 -pe 's/<.*?>//gs' 

Igual que el programa

local $/; 
my $text = <>; 
s/<.*?>//gs; 
print $text; 

Depende de cómo texto grande que desea convertir aquí es más eficaz un trazador de líneas consumiendo línea por línea

perl -pe 'if ($a) {(s/.*?>// and do {s/<.*?>//g; $a = s/<.*//s;1}) or $_=q{}} else {s/<.*?>//g; $a = s/<.*//s}' 

Igual que el programa

my $a; 
while (<>) { 
    if ($a) { 
     if (s/.*?>//) { 
      s/<.*?>//g; 
      $a = s/<.*//s; 
     } 
     else { $_ = q{} } 
    } 
    else { 
     s/<.*?>//g; 
     $a = s/<.*//s; 
    } 
    print; 
}