为什么这个错误？在连接或字符串中使用未初始化的值

Question

当我运行这个脚本时：

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @header = split ' ', <>;
my $last = q();
my @keep;
for my $i (0 .. $#header) {
    my ($prefix) = $header[$i] =~ /(.*)\./;
    if ($prefix eq $last) {
        push @keep, $i + 1;
    }
    $last = $prefix;
}
unshift @header, q();
say join "\t", @header[@keep];

while (<>) {
    my @columns = split;
    say join "\t", @columns[@keep];
}

然后我得到这个错误：

Use of uninitialized value in join or string at./first.perl line 21, <> line 3986. 

你能指导我如何摆脱这个错误吗？ 我应该改变一些可能的数据文件吗？因为当在一个小数据文件中运行这个脚本时，我没有得到错误。但是当我运行它是我的真实数据文件时，我得到了错误。

Answer 1

数组切片@columns[@keep]至少有一个元素是undef

您的文件末尾可能有一个空行。查看输入文件的第 3986 行

我建议您将最终循环更改为此，它会跳过不包含非空格字符的行

while (<>) {
    next unless /\S/;

    my @columns = split;

    if ( $keep[-1] > $#columns ) {
        warn "Malformed data at input file line $.\n";
        next;
    }

    say join "\t", @columns[@keep];
}