j'ai tapé un code qui me permedt de compter le nombre de chevron ">" dans un fichier fasta

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
22
23
24
25
26
27
28
29
30
31
32
 
#!/usr/bin/perl -w
## marche bien , ne compte que les > chevrons en debut de ligne
## si>>>>> alors c'est égal à 1 >
use strict;
 
my $fichier;
my $sequence;
my $chevron=0;
my @table;
my $tot=0;
my $i=0;
 
print "\nChemin du fichier a traiter : ";
chomp ($fichier = <STDIN>); 
 
open (FIC , "$fichier") || die "Probleme d'ouverture: $!"; 
while ($sequence = <FIC>) 
{ 
chomp $sequence;
push (@table, $sequence);
}
$tot=(scalar @table);
close FIC;
 
while ($i< $tot)
{
#print "$table[$i]\n";
while ($table[$i]=~ /^>/g) { $chevron =$chevron+1; }
$i++;
}
print "\nNombre de chevron $chevron\n";
ce code marche très bien,
maintenant j'aimeerai pouvoir compter le nb de retour à la ligne mais je n'y arrive pas!

j'ai remplacer
while ($table[$i]=~ /^>/g) { $chevron =$chevron+1; }
par
while ($table[$i]=~ /\n/g) { $chariot =$chariot+1; }
mais ca ne donne rien.....est-ce qu'il faut ajouter des caractères d'échappement pour le "\n"?

comment faire?

merci
:o :o :o