Bonjour !
En fait j'ai un souci pour rendre une séquence entrée par l'utilisateur insensible à la casse lors d'une recherche :
j'ai essayé de mettre /$tag/i, m/$tag/i, /(i?)$tag/... rien n'y fait ..
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); }
Est-ce à cause du module BioPerl?
J'ai un autre souci concernant l'accession du primary_id, je souhaite le modifier :
Je voudrais rajouter le mot contenu dans $comment à l'identification d'entrée pour obtenir
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); }
>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 !
Partager