正则表达式 – Perl未能说明“可变长度后备未实现”

所以我试着对它进行测试并做出这样的否定：

#!/usr/bin/perl
($_) = "abcdef" =~
/
((?&BB).*)
|
  (?!)
  (?<W>[abc])
  (?<NW>[^abc])
  (?<BB>
     (?<=(?&W))(?=(?&NW))
    |(?<=(?&NW))(?=(?&W))
  )
/x;
print;

哪个不起作用.但是,如果我这样做：

#!/usr/bin/perl
($_) = "abcdef" =~
/
  ((?&BB).*)
| (?!)
  (?<W>[abc])
  (?<NW>[^abc])
  (?<BB>
      (?<=[abc])(?=[^abc])
    | (?<=[^abc])(?=[abc])
  )
/x;
print;

确实如此.这里发生了什么？可变长度看起来在哪里？

仅供参考,我知道这个消息意味着什么.我想知道为什么perl认为命名组的长度可变,我怎么能让它停止思考呢？对我来说,这看起来像是一个错误.其他人同意吗？

使用版本：

This is perl 5,version 14,subversion 4 (v5.14.4) built for cygwin-thread-multi
This is perl 5,version 16,subversion 2 (v5.16.2) built for i686-linux

编辑

所以我找到了一个足够的工作.

#!/usr/bin/perl
$chars = qr/[abc]/;
$notChars = qr[^abc]/;
($_) = "abcdef" =~
/
  ((?&BB).*)
| (?!)
  (?<BB>
      (?<=$chars)(?=$notChars)
    | (?<=$notChars)(?=$chars)
  )
/x;
print;