Question

我有一个运行和下载一些数据的脚本。一切正常，大约60次拉，然后突然我得到错误：

在替换中使用未初始化的值$ _（s ///）

while ( my $row = $ia_applicant_query->fetchrow_arrayref ) {

    s/\t/ /g for @$row;    # <------- THIS IS WHAT THE ERROR POINTS TO
    my $line = join "\t", map { defined $_ ? $_ : '.' } @$row;
    $mydb->func( "$line\n", "putline" );
}

然后仅对剩余的800次拉动重复该错误。什么可能出错？

Answer 1

这意味着@$row中的一个值为undef，如果列为NULL则会发生这种情况。

这可以通过替换

来避免

s/\t/ /g for @$row;
my $line = join "\t",  map { defined($_) ? $_ : '.' } @$row;

与

my $line = join "\t",  map { defined($_) ? s/\t/ /gr : '.' } @$row;   # 5.14+

或

sub tabs_to_spaces { ( my $s = shift ) =~ s/\t/ /g; $s }

my $line = join "\t",  map { defined($_) ? tabs_to_spaces($_) : '.' } @$row;

在替换中使用未初始化的值$ _（s ///）

1 个答案: