regex - ?+* 在正则表达式中不遵循任何内容

Question

我正在尝试在 HP-UX 上编译 netcat-0.7.1，但在制作时总是出现此错误:

../doc/texi2pod.pl ./netcat.texi netcat.pod
/^([^=]+)(?:=(.+))?/: ?+* follows nothing in regexp at ../doc/texi2pod.pl line 48.
*** Error exit code 255

我打开 texi2pod.pl 并尝试像这样输入\Q\E: /\Q^([^=]+)(?:=(.+))?\E/但它不起作用。如果有人可以帮助我，那就太好了。

这是代码:

    ($flag, $value) = ($flag =~ /^([^=]+)(?:=(.+))?/);  
    die "no flag specified for -D\n" unless $flag ne "";  
    die "flags may only contain letters, digits, hyphens, dashes and underscores\n"
    unless $flag=~ /^[a-zA-ZO-9_-]+$/;

perl -v:

    Version 4.0
    Revision 4.0.1.8

Answer 1

Perl 5 添加了 (?:PATTERN)正则表达式的序列，之所以选择它是因为 (?在所有以前的 Perl 版本中都是无效的，因此不会破坏当前工作的代码。这也意味着任何使用它的代码都与之前的 Perl 版本不兼容。

很少有现代 Perl 代码可以与 Perl 4 一起使用。您可能需要升级您的 Perl。这可能需要一系列级联升级，例如您的 C 编译器等。

如果您没有与惠普进行某种安全更新安排，我会非常关心将旧系统连接到互联网。如果您没有将您与旧系统联系起来的专有软件，那么升级到更新的操作系统可能会为您提供很好的服务。