Perl 脚本适用于 5.8.4 和 5.12.4，但不适用于 5.10.0

Question

我有来自用户的以下脚本。当在 perl 5.8.4 和 5.12.4 上运行时，它会打印 1，但在 5.10.0 中则不会（打印 0）。

perl  -e ' my $a=0; my $net="<*2>ColBnk<2"; if (($net =~ s/([(<])/$1/g) != ($net =~ s/([>)])/$1/g)){$a++} print $a;'

这是代码的问题吗（将字符串变量与 != 而不是 ne 进行比较，或者可能是由于 $a++ 之后缺少分号） 。 我尝试通过打印 ($net =~ s/([(<])/$1/g) 和 ($net =~ s/([> ;)])/$1/g) 并且两者都打印相同的值。请参考下面的代码，

use strict;
use warnings; 


#/mu/bin/perl  -e '
 my $a=0; 
 my $net="<*2>ColBnk<2"; 

 my $test="<*2>ColBnk<2"; 
 $test =~ s/([(<])/$1/g;
 print "\n$test" ;
 $test =~ s/([>)])/$1/g;
 print "\n$test" ;

 if (($net =~ s/([(<])/$1/g) ne ($net =~ s/([>)])/$1/g)){$a++;} 

 print "\n Value of a =$a";

 #'

请您提供任何指示。 感谢您的帮助， 阿什什

Answer 1

我可以确认它在 5.8.9 和 5.14.2 中工作，但在 5.10.0 中不起作用。这肯定是 5.8 和 5.10 之间引入的错误，随后已修复。我使用 Porting/bisect.pl 来找出它的问题所在。这是 Perl 5.9.4 中引入的此提交。然后它被 Perl 5.10.1 中引入的此提交修复。

当我尝试使用 bisect.pl 时，我不断收到有关需要 C 编译器的错误（即使我确实安装了一个）。事实证明，bisect.pl 没有使用 Perl 的配置脚本的正常编译器检测（大概是为了节省时间）。如果默认不起作用，则需要使用 bisect.pl 的 -D 选项进行设置。 （例如，我使用 -D{cc,ld}=/usr/bin/gcc）。

您可以通过执行以下步骤找到引入该错误的确切更改：

$ git clone git://perl5.git.perl.org/perl.git
$ mkdir perl-bisect
$ cd perl
$ cp -a Porting/bisect* ../perl-bisect/
$ ../perl-bisect/bisect.pl --target=miniperl --end=v5.10.0 --start=perl-5.8.4 \
  -e 'my $a=0; my $net="<*2>ColBnk<2"; if (($net =~ s/([(<])/$1/g) != ($net =~ s/([>)])/$1/g)){$a++} die unless $a;'

如果您必须使用 Perl 5.10.0，则可以通过存储每个 s///g 的结果来解决该错误成一个临时变量，然后比较两个变量：

perl -e 'my $a=0; my $net="<*2>ColBnk<2"; my $x = ($net =~ s/([(<])/$1/g); my $y = ($net =~ s/([>)])/$1/g); if ($x != $y){$a++} print $a;'

但更好的解决方案是升级到固定版本。 Perl 5.10 已正式终止生命周期，但如果您不想进行较大更改，您可以安装 5.10.1。或者您可以升级到 5.12 或 5.14。