什么会导致 Perl 转储核心？

Question

运行 Perl 脚本时出现此错误的最常见原因是什么：

Memory fault(coredump)

我事先运行了两个 SQL 命令，每个命令仅存储约 1500 行，每行有 6 个字段。 SQL 在脚本中运行良好，所以我认为我没有从中得到错误。 我的一半代码在它收到炸弹并给我这个错误之前运行。

那么导致此错误的最常见原因是什么？我的原因可能是什么？

编辑 - 这是有效的代码

my $i;
$i = 0;    
while ($DBS->SQLFetch() == *PLibdata::RET_OK)
    {
        while ($i != $colnamelen)
        {
            if ($i == 1)
            {
                $rowfetch = $DBS->{Row}->GetCharValue($colname[$i]);
                $rowfetch =~ s/(?=..$)/:/;
                printline($rowfetch);
                $i++;       
            }
            if ($i == 2)
            {
                $rowfetch = $DBS->{Row}->GetCharValue($colname[$i]);
                $rowfetch =~ s/(?=..$)/:/;
                printline($rowfetch);
                $i++;       
            }
            if ($i == 10)
            {
                $rowfetch = $DBS->{Row}->GetCharValue("meetdays");
                $rowfetch =~ s/-//gi;
                printline($rowfetch);
                $i++;
            }
            if ($i == 12)
            {
                $rowfetch = $DBS->{Row}->GetCharValue("fullname");
                my ($lname, $fname) = split /,\s*/, $rowfetch;
                $rowfetch = $fname;
                printline($rowfetch);
                $rowfetch = $lname;
                printline($rowfetch);
                $i=$i+2;
            }
            else
            {
                $rowfetch = $DBS->{Row}->GetCharValue($colname[$i]);
                printline($rowfetch);
                $i++;
            }
        }
        $i=0;   
        printf $fh "\n";
    }

这是无效的代码 - 所做的只是优化 sql fetch 命令

my $i;
$i = 0;      
while ($DBS->SQLFetch() == *PLibdata::RET_OK)
    {
        while ($i != $colnamelen)
        {
                $rowfetch = $DBS->{Row}->GetCharValue($colname[$i]);
            if ($i == 1)
            {
                $rowfetch =~ s/(?=..$)/:/;
                printline($rowfetch);
                $i++;       
            }
            if ($i == 2)
            {
                $rowfetch =~ s/(?=..$)/:/;
                printline($rowfetch);
                $i++;       
            }
            if ($i == 10)
            {
                $rowfetch =~ s/-//gi;
                printline($rowfetch);
                $i++;
            }
            if ($i == 12)
            {
                my ($lname, $fname) = split /,\s*/, $rowfetch;
                $rowfetch = $fname;
                printline($rowfetch);
                $rowfetch = $lname;
                printline($rowfetch);
                $i=$i+2;
            }
            else
            {
                printline($rowfetch);
                $i++;
            }
        }
        $i=0;   
        printf $fh "\n";
    }

哦，顺便说一句，在此 while 循环开始执行之前有一个功能正常的 SQL 语句..我只是不想浪费空间。

Answer 1

您正在解决 Perl 解释器或其 C 模块之一中的错误。 如果您的 Perl 二进制文件没有调试符号，请编译一个有调试符号的版本并进行核心转储。 将核心转储加载到 gdb 中并进行回溯。 找到错误，查看它是否在最新版本中，如果不是，则提交修复它的补丁。

Answer 2

您能否将有问题的脚本简化为显示相同错误的简短脚本？ 它在脚本中的哪个位置转储核心？

我的第一个怀疑是您正在使用的模块之一有一个无法正常运行的 XS 组件。 找出脚本崩溃的地方，然后开始调查那里的部分。 不断地削减部分，直到你能想出重现问题的最小脚本。

Answer 3

在代码更改之前，您在检查 $i 是否是您想要的值后调用了 GetCharValue。 更改后，即使它不是 1,2,10,12，您也可以调用它。 除了这 4 个值之外，是否有可能 $i 的值导致了问题？

Answer 4

当针对与系统当前版本不同的共享库版本编译 DBD 驱动程序时，我看到过类似的事件。 （比如有MySQL4，然后升级到MySQL5而不重新编译DBD的情况）