Bonjour Lolo,

Dans ton document tu donnes un exemple pour compter le nombre de doublon par colonne dans un fichier texte.
http://laurent-rosenfeld.developpez....s-listes/#L4-1

J'avoue bloquer sur la compréhension du code
Comme pour ces parties :
{$transposed_array[$i++]
{my $count = s/OO/00/g; $count? $count : 0;}

Est ce que tu pourrais l'expliquer?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
 
my @transposed_array;
while (<DATA>) {
     print;
     my $i;
     map {$transposed_array[$i++] .= $_;} split;
}
print join "  ", 
      map {my $count = s/OO/00/g; $count? $count : 0;}
      @transposed_array;
__DATA__
A1 A2 A3 A4 A5
CC NA OO UV OO
NA OO OO OO CP
TR OO UU RR OO