如何创建Perl正则表达式以删除第一个“<”之前的所有字符?

当在[]中用作字符类时,字符的含义会发生变化。[.]没有意义,真的,不同于仅仅。所以。字面意思就是在这种情况下。

我认为这应该很有效:

$text =~ s/^.*?</</s; 

你不想要 tr .

#!/usr/bin/perl

use strict;
use warnings;

while ( <DATA> ) {
    last unless /\S/;
    s/^.+?</</;
    print;
}

__DATA__
a < b < c
a < b < c

^[^<]+

. (dot)在character类中是文本点,而不是通配符。

字符类中的“.”不是元字符。你也想要 s/// 不是 tr ,替换单个字符。所以 s/^.+(?=<)// 应该工作,尽管我会亲自写 s{^.*<}{<} 为了避免前视的事情。

澄清后编辑:

if ($line =~ /^.+?<(.+)/) {
  push @matched, $1;
}