- or download this
foreach my $probeset_id (sort keys %{$row{$origin{$pip}}}){
- or download this
foreach my $probeset_id (sort keys %{$row{$origin}{$pip}}){
- or download this
foreach my $probeseq ( sort keys %{$row{$origin}{$pip}{$probeset_id}{$
+affyscore}{$gc}}){
- or download this
@data=split (/\t/,$_);
my $probeset_id = $data[0];
...
my $pip = $data[3];
my $gc = $data[4];
my $affyscore = $data[5];
- or download this
my ($probeset_id, $origin, $probeseq, $pip, $gc, $affyscore) = split /
+\t/;