Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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,