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_.*/