多线PCRE w \ lookahead，发出计数匹配

3 回答

• 0

  主要的问题是使用贪婪的量词 . 它's that you'重新使用 ^ 锚点以及前瞻和 .* . 该模式别无选择，只能匹配任何东西或什么都不匹配 .

  相反，只需删除前瞻方法并将 cat 和 dog 与之间的任何内容匹配，或者相反：

  /cat.*?dog|dog.*?cat/gs

  在这种情况下，您实际上需要使用 ? 指定延迟量词，否则它将像您所担心的那样将所有匹配作为一个匹配 .

  https://regex101.com/r/nv9Nj7/1

  回复于 2024-05-21T08:34:46+08:00
• 0

  只是一个建议，但也许这比复杂的正则表达式更具可读性

  use List::MoreUtils 'all';
  
  my @things = qw( cat dog bird fish );
  
  for my $line ( @lines ) {
      if ( all { $line =~ / \b $_ \b /x } @things ) {
          # DO STUFF
      }
  }
  

  all 函数是List::MoreUtils的一部分，但也可在List::AllUtils和List::SomeUtils中使用

  这个实现依赖于你逐行处理你的字符串，所以你可能会做 for my line ( split(/\n/, $string) ) { ... } 之类的事情 .

  回复于 2024-05-21T08:34:46+08:00
• 0

  CAustin的答案可以简化为：

  /(cat|dog).*?(?!\1)(?:cat|dog)/gs
  

  这更容易扩展到更多的字符串 . 有4个字符串：

  /(cat|dog|bird|fish).*?(?!\1)(cat|dog|bird|fish).*?(?!\1|\2)(cat|dog|bird|fish).*?(?!\1|\2|\3)(?:cat|dog|bird|fish)/gs
  

  并限制一些无用的回溯：

  /(cat|dog|bird|fish)(?>.*?(?!\1)(cat|dog|bird|fish))(?>.*?(?!\1|\2)(cat|dog|bird|fish))(?>.*?(?!\1|\2|\3)(?:cat|dog|bird|fish))/gs
  

  回复于 2024-05-21T08:34:46+08:00