Bonjour !

En fait j'ai un souci pour rendre une séquence entrée par l'utilisateur insensible à la casse lors d'une recherche :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
while ( my $seq = $in->next_seq()){
    if($seq->desc=~ /$tag/){
        $garde->write_seq($seq);
    }
    else{
        $keep->write_seq($seq);
    }
j'ai essayé de mettre /$tag/i, m/$tag/i, /(i?)$tag/... rien n'y fait ..
Est-ce à cause du module BioPerl?

J'ai un autre souci concernant l'accession du primary_id, je souhaite le modifier :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
while ( my $seq = $in1->next_seq()) {
 
				my $primary_id = $seq->primary_id();
				my $new_primary_id = "$comment".$primary_id;		
				$seq->primary_id($new_primary_id);
 
				$out1->write_seq($seq);		}
Je voudrais rajouter le mot contenu dans $comment à l'identification d'entrée pour obtenir

>gi|22212273|gb|AAM92877.1| type II hair-specific keratin [Homo sapiens]

=>

>mot_gi|22212273|gb|AAM92877.1| type II hair-specific keratin [Homo sapiens]

Merci d'avance à qui pourra m'aider !