在 Perl 中调试分段错误有哪些好的方法或步骤？

Question

有两种情况我的代码不会导致segmentation fault：

1. 当我在至少一个地方使用Smart::Comments 时
2. 运行调试器。

我已经追踪到这个电话：

$action->{breakdown} 
    = join( ' '
          ,  each_pair { 
                my ( $name, $length ) = @_;
                return "x$length" if $name eq 'FILLER';
                push @$field_list_ref, $name;
                return "A$length";

            } @$field_def_ref
    );

其中each_pair 在另一个模块中定义为：

sub each_pair (&@) { 
    my $block   = shift;
    return unless @_;
    my $caller  = caller();
    my $aref    = qualify( 'a', $caller );
    my $bref    = qualify( 'b', $caller );
    my @results;
    my $pairs   = 0;

    for ( my $index = 0; $index < $#_; $index += 2 ) { 
        $pairs++;
        my @pair                 = @_[$index..($index+1)];
        no strict 'refs';
        local ( $$aref, $$bref ) = @pair;
        push @results, $block->( @pair );
    }
    return wantarray || $pairs != 1 ? @results : shift @results;
}

• 现在我知道我可以将 each_pair 替换为 List::MoreUtils::natatime（尽管我听说这有一些错误），他们最近才允许这个模块进入我们的环境，我仍然对为什么这个调用会导致分段错误——或者其他 Perl 程序员由于调试分段错误。

我在这方面浪费了一些时间。

---

编辑

我有其他模块使用此功能，有些人希望能够使用$a 和$b，它也在同一个模块的其他地方工作，用于另一个列表。我可以更改对它的调用，我可以为这个文件更改它，但是为每个成功使用它的地方更改它，可能比我在这么晚的时间允许做的更改更多。

Answer 1

分段错误在 Perl 中极为罕见。我不记得我上次遇到一个。

调试器具有足够的侵入性，因此代码在此处的行为会有所不同也就不足为奇了，尽管这确实令人沮丧。 Smart::Comments 使用的源过滤器（众所周知）是邪恶的。查看 Smart::Comments 的源代码，我发现它使用 List::Util，它通常使用 XS 实现。 List::Util 可能是“解决”您的问题的原因。尝试直接使用List::Util 而不是Smart::Comments。这不会解决任何问题，但它可能会消除源滤波器的不确定性。

不幸的是，您的问题似乎不在于代码本身，而在于不同事物之间的意外交互。您不能真正在 Perl 中直接触发分段错误。根必须在 perl 本身或 XS 代码中。如果您可以将其缩减为一个小而完整的样本，其他人可能能够重现并隔离问题。

Answer 2

至于一般调试步骤，您始终可以在gdb 下运行 Perl 解释器。看到任何有教育意义的东西的机会并不一定那么热门，但我已经做过几次，甚至可能有一次帮助。

Answer 3

我将使用each_pair 函数回显chaos' concern。如果您使用以下实现会发生什么？

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

sub each_pair(&@);

my $field_def_ref  = [ qw( FILLER 5 NOTFILLER 6 ) ];
my $field_list_ref;

print join(' ' => each_pair {
    my ($name, $length) = @_;
    return "x$length" if $name eq 'FILLER';
    push @$field_list_ref, $name;
    return "A$length";
} @$field_def_ref ), "\n";

print Dumper $field_list_ref;

sub each_pair( &@ ) {
    my $code = shift;
    my @results;

    for my $i ( 0 .. $#_/2 ) {
        push @results, $code->( shift, shift );
    }

    return @results;
}
__END__

Answer 4

段错误可能来自与 XS 绑定的 C 编写的外部模块中的内存错误。

我建议在 valgrind 中运行您的脚本以发现错误：

valgrind perl ./yourfaultyscript.pl

Answer 5

好吧，我不明白为什么你的 each_pair() 会这样做：

my $caller  = caller();
my $aref    = qualify( 'a', $caller );
my $bref    = qualify( 'b', $caller );

或者这个：

    no strict 'refs';
    local ( $$aref, $$bref ) = @pair;

在出现段错误的情况下，需要您关闭 strict refs 的引用操作似乎立即受到怀疑。

如果禁用所有这些会发生什么？