Làm cách nào để xóa các ký tự trong khoảng từ < and > trong Perl?

Question

Tôi cần viết kịch bản Perl để đọc trong một tệp và xóa mọi thứ bên trong <>, ngay cả khi chúng ở trên các dòng khác nhau. Nghĩa là, nếu đầu vào là:

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. 

Tôi muốn đầu ra là:

Hello, world. I ate a sandwich. bananas. 

tôi biết làm thế nào để làm điều này nếu văn bản là 1 phù hợp với một regex. Nhưng tôi không biết làm thế nào để làm điều đó với nhiều dòng. Cuối cùng, tôi cần phải có khả năng xóa các phần của mẫu để có thể tạo các tệp tham số cho các tệp cấu hình. Tôi nghĩ perl sẽ là một ngôn ngữ tốt nhưng tôi vẫn nhận được hang của nó.

Sửa: Cũng cần nhiều hơn 1 thể hiện của <>

Answer 1

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

Answer 2

Bạn có thể muốn kiểm tra một module Perl Text::Balanced, một phần của sự phân bố cốt lõi. Tôi nghĩ nó sẽ giúp ích cho bạn. Nói chung, người ta muốn tránh các regex để làm điều đó loại NẾU văn bản chủ đề có khả năng có một tập hợp các dấu phân cách bên trong, nó có thể rất lộn xộn.

Answer 3

Trong Perl:

#! /usr/bin/perl 
use strict; 

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

Các regex thay thế bất cứ điều gì bắt đầu với một < qua là người đầu tiên> (bao gồm) và thay thế nó bằng gì. G là toàn cục (nhiều lần).

EDIT: kết hợp ý kiến ​​từ Hynek và hỗn loạn

Answer 4

không hiệu quả một lót cách

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

tương tự như chương trình

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

Nó phụ thuộc văn bản lớn như thế nào mà bạn muốn chuyển đổi ở đây là hiệu quả hơn đường tiêu thụ một dòng theo dòng

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

tương tự như chương trình

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