我正在尝试以可以访问一行中每一列的方式将 CSV 读入数组。但是,当我运行以下代码以从每一行打印特定列时,它只输出空行。
#set command line arguments
my ($infi, $outdir, $idcol) = @ARGV;
#lead file of data to get annotations for
open FILE, "<", $infi or die "Can't read file '$infi' [$!]\n";
my @data;
foreach my $row (<FILE>){
chomp $row;
my @cells = split /\t/, $row;
push @data, @cells;
}
#fetch genes
foreach (@data){
print "@_[$idcol]\n";
# print $geneadaptor->fetch_by_dbID($_[$idcol]);
}
测试输入为
a b c
1 2 3
d e f
4 5 6
我认为这里的问题不是加载文件,而是处理结果数组。我应该如何处理这个问题?