bonsoir !
je suis un super débutant en perl en fait j'ai un problème pour répondre a un exercice : j'ai un fichier qui contient des sequences :
exemple :
>seq1
sqdfhjsqdhfkjsqd
>seq2
kswjdhvlskjvsdvsq
>seq3
ksndvk:jsn:kvssdfs
ce que je cherche c'est le code pour compter le nombre de sequences mon idée est de compter combien j'ai de ">" exemple ici j'ai 3 donc le programme doit m'afficher : le nombre de sequences est 3
jusqu'ici le code que j'ai pu établir me donne 1 car il compte que la premiere ligne du fichier pas plus...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
use strict;
use warnings;
open(FA, "sequences.txt") or die "fichier introuvable";
my $nbr = <FA>;
my @list = $nbr =~ />/g;
my $count = scalar @list;
print "Il y a $count  sequences dans la liste\n";
 
close FASTA;
<>
Merci pour l'aide