Code:
for($i=1;$i<=$no;$i++)
{
for($j=0;$j<=15;$j++)
{
my @lprobes;
my %sl;
my $geneid = $gene[$i][$j];
if($geneid eq "") { next };
and Display things
}
}
for($i=1;$i<=$no;$i++)
{
for($j=0;$j<=15;$j++)
{
my @lprobes;
my %sl;
my $geneid = $gene[$i][$j];
if($geneid eq "") { next };
and Display things
}
}
for($i=1;$i<=$no;$++)
{
my $filename = $session[$i].".txt";
my $seqobj = Bio::SeqIO->new( -format => 'GenBank',-file => $filename);
my $seq=$seqobj->next_seq();
....
etc...
}
Leave a comment: