如何在此程序中获取列标签 probeid 的用户输入

Question

我的数据有 170 行（exp.values）和 18,000 列（Probeid's）。如果我输入特定的probeId，我需要检索特定的列。并且该probeid 将在运行时输入。有人有想法吗？我对这个程序的输出没有问题。该程序执行编码时输入的 id P_170221 的任务。当我尝试输入变量 $probeid（由 STDIN 获得）代替 P_170221 时，出现如下错误：

在 C:/Users/xxx/perl_workspace/perl_proj_one/GIS/just.pl 第 16 行， 第 1 行的连接 (.) 或字符串中使用未初始化的值。

#!/usr/bin/perl
use strict;
use warnings;
use Tie::Handle::CSV;
open(OUT,">C:\\Users\\xxx\\Desktop\\Output.txt")||die $!;
my $fh = Tie::Handle::CSV->new("C:\\Users\\xxx\\Desktop\\GE_Acc.csv", header => 1);

while (my $csv_line = <$fh>) {
   print OUT $csv_line->{'FID'} . ", " . $csv_line->{'IID'} .",".$csv_line->{'P_1710221'}."\n";
    my $i++;
}

close $fh;

Answer 1

你会为每一行获得一个普通的哈希引用，迭代它的键。在这里我对键进行排序，因为您可能不想以随机顺序浏览它们：

while (my $csv_line = <$fh>) {
    print OUT $csv_line->{'FID'} . ", " . $csv_line->{'IID'};
    foreach my $key (sort keys %$csv_line) {
        # Ignore columns that aren't probeids
        next if $key eq 'FID' or $key eq 'IID';  

        print ", " . $csv_line->{$key};
    }
    print "\n";
}