Demande explication code LOLO

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 :calim2:
Comme pour ces parties :
{$transposed_array[$i++]
{my $count = s/OO/00/g; $count? $count : 0;}

Est ce que tu pourrais l'expliquer?

Code:

---

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

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

Code:

---

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';

Bonjour,

Code:

---

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:

---

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.

Merci Lolo

et pour cette ligne ?

Code:

---

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++]"

Bonjour,


Ce code:

Code:

---

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:

---

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).

Citation:

---

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 ?

Presque. ;)

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

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 :weird: