Discussion :

[caramon _majere]

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

[caramon _majere]

En fait déjà dès le début, comme les arguments de chaque colonne arrivent dans une array spécifique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Data::Dumper;
 
my @transposed_array;
while (<>) {
     print;
     my $i;
     map {$transposed_array[$i++] .= $_;} split;
}
 
print "\n\n";
 
print Dumper(@transposed_array);

Résultat

A1 A2 A3 A4 A5
CC NA OO UV OO
NA OO OO OO CP
TR OO UU RR OO

$VAR1 = 'A1CCNATR';
$VAR2 = 'A2NAOOOO';
$VAR3 = 'A3OOOOUU';
$VAR4 = 'A4UVOORR';
$VAR5 = 'A5OOCPOO';

[Lolo78]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $count = s/OO/00/g;

Le s/OO/00/g fait une substitution de "OO" par "00", dont je ne sers en fait pas, et renvoie le nombre de substitutions effectuées. C'est donc juste un moyen de compter le nombre d'occurrences de "OO" dans chaque ligne.

Ensuite, $count est en fait indéfini si aucune occurrence de "OO" n'a été trouvée, ce qui provoquerait un warning si on essayait de l'impimer. Du coup:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$count? $count : 0;

met $count à 0 s'il n'est pas défini (s'il n'y a pas de chaîne "OO"), et garde la valeur de $count dans le cas contraire.

[caramon _majere]

Merci Lolo

et pour cette ligne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

map {$transposed_array[$i++] .= $_;} split;

je vois le split sur les espaces, tu concatènes les valeurs mais je bloque le principe du fonctionnement de cette partie "{$transposed_array[$i++]"

[Lolo78]

Bonjour,


Ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
map {$transposed_array[$i++] .= $_;} split;

fait la transposition lignes/colonnes des données en entrée. On a ces données en entrée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
A1 A2 A3 A4 A5
CC NA OO UV OO
NA OO OO OO CP
TR OO UU RR OO

Le bout de code en question lit les lignes en entrée une à une. Le split transforme la ligne "A1 A2 A3 A4 A5" en un tableau ("A1", "A2", ... "A5").

Le "map {$transposed_array[$i++] .= $_;}" alimente le tableau @transposed_array.

Après la lecture de la première ligne en entrée, @transposed_array contient un tableau ("A1", "A2", ... "A5").

Après la lecture de la deuxième ligne, @transposed_array contient ("A1CC", "A2NA", ... "A5OO"), et ainsi de suite.

Et à la fin, @transposed_array contient les données transposées: ("A1CCNATR", "A2NAOOOO", "A3OOOOUU", "A4UVOORR", "A5OOCPOO");

Une fois les données ainsi transposées, il est facile de compter le nombre d'occurrence de "OO" dans chaque ligne (qui correspond aux colonnes d'origine).

[caramon _majere]

Le "map {$transposed_array[$i++] .= $_;}" alimente le tableau @transposed_array.

Après la lecture de la première ligne en entrée, @transposed_array contient un tableau ("A1", "A2", ... "A5").

Après la lecture de la deuxième ligne, @transposed_array contient ("A1CC", "A2NA", ... "A5OO"), et ainsi de suite.

Si je te suis "[$i++]" est crée une valeur 1 de du tableau (A1), ensuite avec l'incrémentation crée la seconde valeur du tableau (A2).
Lors de la lecture de la seconde ligne, on recommence à la valeur 1 du tableau auquel on incrémente la nouvelle variable (A1CC) etc ...

J'ai bon ?

[Lolo78]

Presque.

[$i++] crée des valeurs de 0 à 4, et non de 1 à 5. Sinon, oui, c'est bien cela.

[caramon _majere]

oups, j'ai confondu $i++ et ++$i

C'est plus clair avec ces échanges
je connaissais pas cette méthode.
Perl était en train de passer du côté magique au mystique