Help for this page

Select Code to Download

Select or download this

for my $file (@files) {
    my $ok = open (my $fh, "<", "$dir/$file.txt");
...
    my $line = join("\t",@cols);
    print qq|$key\t$line\n|;
}

Select or download this

       file_1 file_2 file_3 file_4
AB     1.0    4.0    4.0    4.0
AB-1   2.0    6.0    6.0    6.0
AB-4   1.0    9.0    9.0    9.0
AB-6   2.0    8.0    4.0    4.0