如何删除Perl中<和>之间的字符?

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

您可能需要签出一个Perl模块 Text::Balanced 核心分布的一部分。我想这对你有帮助。一般来说,如果主题文本可能有一组内部分隔符,则可能会变得非常混乱,人们希望避免正则表达式执行这种操作。

在Perl:

#! /usr/bin/perl   
use strict;

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

regex替换了从<到第一个>(包括首尾)开始的任何内容,并用Nothing替换它。G是全球性的(不止一次)。

编辑:合并了海尼克和混沌的评论

单列线路失效

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

与程序相同

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

这取决于您要在此处转换多大的文本是更有效的一行一行地使用

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

与程序相同

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