[langage] compter les retour à la ligne
j'ai tapé un code qui me permedt de compter le nombre de chevron ">" dans un fichier fasta
Code:
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! :cry:
j'ai remplacer
Citation:
while ($table[$i]=~ /^>/g) { $chevron =$chevron+1; }
par
Citation:
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
