Création d'une liste (module Bio::Tools::IUPAC)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| #!/usr/bin/perl
use strict;
use warnings;
use Bio::Seq;
use Bio::Tools::IUPAC;
# amorces sens dans le sens 5' -> 3'
my $for = 'GTTGRATYTACCCHTAARA';
# recherche des amorces correspondantes
my $for_ambiseq = Bio::Seq->new(-seq => $for, -alphabet => 'dna');
my $for_stream = Bio::Tools::IUPAC->new(-seq => $for_ambiseq );
# affichage des amorces correspondantes
while (my $uniqueseq = $for_stream->next_seq()) {
print $uniqueseq->seq."\n";
} |
Le code ci-dessus fonctionne sans problème.
Comment puis-je récupérer mes valeurs dans @for_list autrement que par un push mis à l'intérieur du while?
Code:
1
2
|
my @for_list = $for_stream->next_seq(); |
Le code ci-dessus ne récupère que la première valeur de ma liste.
Merci beaucoup,
