"<i>Hidden bugs with given-when and for-match.<\/i>给定时间和匹配的隐藏错误。<\/b> <i>Is Perl truly cross-platform?<\/i> Perl 真的是跨平台的吗？<\/b>"

Question

我一直在尝试制作一个相对较大的 Perl 程序，该程序多年来一直在 CentOS 上运行良好，以在 Ubuntu 上运行，这已成为一场巨大的噩梦。 CentOS 使用为 x86_64-linux-thread-multi 构建的 Perl，而 Ubuntu 使用 x86_64-linux-gnu-thread-multi 构建。 AFAIK，当程序调用相同的先前版本v5.10.1<\/code>时，两种环境中的解释器行为应该相同。 然而，我得到了非常不同的行为，包括关于given<\/code> \/ when<\/code>和smartmatch<\/code>是实验性的警告，最重要的是，一组难以追踪和解决的讨厌的错误。 当下面显示的given<\/code>语句（表格 1）匹配并调用函数时，会出现特定问题。 然后突然间，从未接触过的开关变量（称为$ailtype<\/code> ）的值从内存中删除！ 如果我简单地调用该函数，则不会发生任何令人讨厌的事情。 所以，我用for<\/code>语句（表格 2）替换了given<\/code>的 \/ when<\/code>用法，我的问题是为什么问题仍然存在<\/em>？！ 真正避免该问题的唯一形式是if<\/code> \/ elsif<\/code> s（形式 3）的简单链，这清楚地表明问题出在形式 1 和 2 以及 perl 解释器不一致且漏洞百出：它甚至不产生表格 2 的“实验性”警告。

这是表格1（原件）：

print "ailtype is $ailtype \n"; # prints "ailtype is 8"

given ($ailtype) {
    when (4) { &parse_mascot}
    when (5) { &parse_sequest}
    when (8) { &parse_spectrast($ms2_results, $rttemp)}
    when (9) { &parse_cnstab($ms2_results, $rttemp)}
    default { STDOUT->autoflush(1) and die "ailtype=|$ailtype| unknown.\n"; }
}

print "ailtype is $ailtype \n"; # prints "ailtype is ". $ailtype got destroyed!

Answer 1

for<\/code>循环中的每个值的别名$_<\/code> 。 如果被调用的函数改变了$_<\/code>的值，那么原来的变量也会改变。 在 while 循环中使用的菱形运算符会更改全局$_<\/code>并在eof<\/code>上变为undef<\/code> 。

#!/usr/bin/perl
use warnings;
use strict;

sub f {
    while (<DATA>) {
        warn "read:\t$_";
    }
}

my $x = 8;

print "Before:<<$x>>\n";

for ($x) {
    &f();
}

print "After:<<$x>>\n";

__DATA__
A
B