Hey guyz.
Here is my sample input file following by first part of my code:
It prints a list:
I want this list to be stored in a 2 dimensional array following by a random number between 0-1 in second column. Desired array:
Any help? Thanks.
Here is my sample input file following by first part of my code:
Code:
* A B C D E
reg1 1 0 1 1 0
reg2 0 1 0 0 1
reg3 1 0 0 1 0
reg4 0 0 1 0 1
reg5 1 1 0 0 1Code:
use strict;
use warnings;
open (IN, "test_input.txt") or die ("Can't open file.txt: $!\n");
my $line = <IN>;
chomp $line;
my @TF = split ('\t', $line);
shift (@TF);
while ($line = <IN>) {
my @temp = split('\t', $line);
shift (@temp);
my $i = 0;
while ($i < @TF) {
if ($temp[$i]==1) {
print "$TF[$i]";
}
$i++;
}
}
close(IN);Code:
ACDBEADCEABECode:
A 0.724392652
C 0.100361935
D 0.980176163
B 0.626905862
E 0.545560827
A 0.207170636
D 0.233475703
C 0.248689653
E 0.441124913
A 0.695127525
B 0.028040103
E 0.980644345