regex - Perl：某些复杂字符的正则表达式

Question

我是 Perl 的初学者，有如下部分数据：

ATOM    2067  N    SER 7  316   -2.78500  -0.14800  -0.01300 N_R    3 0 -0.47000 0   0
ATOM    2068 HN    SER 7  316   -2.51586   0.06218   0.89490 H___A  1 0  0.31000 0   0
ATOM    2069  CA   SER 7  316   -3.57800  -1.36200  -0.28500 C_3    4 0  0.07000 0   0

我希望能够在每行中没有 H_ 的情况下将数据打印到另一个文件行。你能帮我找出正则表达式中的错误吗？

while (<localBGF>)
{
      $line = $_;
      if ($line =~ /^ATOM\s+\d+\s+(\S+)\s+SER/)
      {

          if ($line !~ /^ATOM\s+\d+\s+(\S+)\s+SER\s+\d\s+\d\s+\d\s+\d\s+\d\s+H_/)
          {
               print BGF $line;
          }

      }
}

Answer 1

由于您已经确定了该行与^ATOM\s+\d+\s+(\S+)\s+SER第二个匹配的第一个正则表达式，因此您可以检查$line !~ /.*H_.*/