Bonjour,

>famille A
A
B
C 7543232 ferf
>famille B
A
B
C 151652 zefefz


J'aimerais comptabiliser la somme des C (par exemple içi 7543232+ 151652). Mais je bloque.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
my @tab           = ();
my $nb         = 0;
 
while( my $ligne=<F>){
if($ligne =~ /^C\t([0-9]+)\t(.+)/){    
        $nb ++;            
        $tab[$nb][1] = $1;  
    }
}
 
for (my $x=1; $x<=$nb $x++){  
print(" $tab[$x][1]\n");
}