如何在Perl中的while循环中跳过迭代步骤？

Question

在Perl中，我试图实现这一点：

while ($row = <$fh>){
     if the row contains the character >:
          #do something AND then skip to the next line
     else:
         #continue to parse normally and do other things

Answer 1

您可以使用next内置命令跳到循环的下一个迭代。 因为您正在逐行阅读，所以这就是您需要做的。

要检查字符是否存在，请使用正则表达式 。 这是通过m//运算符和Perl中的=~完成的。

while ($row = <$fh>) {
  if ( $row =~ m/>/ ) {
    # do stuff ...
    next;
  }
  # no need for else
  # continue and do other stuff ...
}

Answer 2

尝试这种方式：

while ($row = <$fh>)
{
    if($row =~ />/)
    {
        #do something AND then skip to the next line
        next;
    }
    #continue to parse normally and do other things
}