为什么这个正则表达式压制比我预期的要多？

Question

我试图压制以[T 没有做正面匹配并否定结果的字符串.

my @tests = ("OT", "[T","NOT EXCLUDED");
foreach my $test (@tests)
{
 #match from start of string, 
 #include 'Not left sq bracket' then include 'Not capital T'
 if ($test =~ /^[^\[][^T]/)  #equivalent to /^[^\x5B][^T]/
 {
  print $test,"\n";
 }
}

输出

NOT EXCLUDED

我的问题是,有人可以告诉我为什么OT被排除在上面的例子中？

编辑 感谢您的答复到目前为止所有人,我可以看到我有点stoopid.

Answer 1

正则表达式^[^\[][^T]匹配以字符开头的字符串,[后跟除了字符之外的字符T.

由于OT具有T第二个字符,因此不匹配.

如果要匹配除开头之外的任何字符串[T,您可以执行以下操作:

if ($test =~ /^(?!\[T)/) {
   print $test,"\n";
}