Explication d'une fonction MAP

Version imprimable

Bonjour

J'ai un code que j'ai pas compris qui utilise la fonction map

ce code il lit deux fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
 
my $kTestLines = 2000000;
my $kMinSame   = 2;
my $testA      = 'trans2';
my $testB      = 'gh3-2.n';
 
srand (1);
buildTestFile($_) for $testA, $testB;
 
open my $inA, '<', $testA or die "Can't open $testA: $!\n";
open my $inB, '<', $testB or die "Can't open $testB: $!\n";

par la suite on la fonction buldTestFile($_)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
sub buildTestFile {
    my ($fName) = @_;
 
    open my $fOut, '>', $fName or die "Can't create '$fName': $!\n";
 
    for (1 .. $kTestLines) {
 
 
 
 
        my %words = map {$_ => undef} map {
            join '', map {randLetter()} 1 .. 4
        } 1 .. 4;
 
        print $fOut join (' ', keys %words), "\n";
    }
}
 
 
sub randLetter {
    return chr 65 + rand 26;
}

ce que j'ai pas compris c'est la partie du code

Code:

1
2
3
4
5
 my %words = map {$_ => undef} map {
            join '', map {randLetter()} 1 .. 4
        } 1 .. 4;
 
        print $fOut join (' ', keys %words), "\n";

S'il vous plait que contient exactement %words et que font les différentes fonction map

Merci

27/02/2016, 23h24
Lolo78
Bonjour,

la fonction map prend en entrée une liste ou un tableau, applique à chaque élément de cette liste une transformation définie dans le bloc du map et renvoie la liste ainsi modifiée.

Par exemple:
Code:

1 2 print map { $_ * 3, "\n" } 1..5;
imprime:
Code:

1 2 3 4 5 6 3 6 9 12 15
Une telle instruction se lit de droite à gauche (et de bas en haut quand il y a plusieurs lignes). Ici, elle prend en entrée les chiffres de 1 à 5. Le bloc du map traite successivement chacune de ces valeurs, la multiplie par 3 et renvoie cette valeur triplée et un retour à la ligne, tout cela étant ensuite affiché par le print.

Dans ton cas:
Code:

1 2 3 4 my %words = map {$_ => undef} map { join '', map {randLetter()} 1 .. 4 } 1 .. 4;
Les valeurs 1..4 utilisées à deux reprises ne sont pas utilisées à l'intérieur de leurs blocs respectifs, elles ne servent qu'à répéter l'opération 4 fois.
Code:

1 2 join '', map {randLetter()} 1 .. 4
génère un "mot" de quatre lettres aléatoires en majuscules.
Code:

1 2 map {$_ => undef}
Pour chacun des mots de quatre lettres générés précédemment, ce map crée une paire clef => valeur, dans laquelle la clef est le mot de quatre lettre et la valeur est indéfinie. L'ensemble de ces opérations étant fait quatre fois (le 1..4 final), on se trouve au final avec un hachage de quatre entrées, dont les clefs sont les mots de quatre lettres et les valeurs non définies.

Par exemple quelque chose comme:
Code:

1 2 3 4 5 'KHVR' => undef, 'PGIG' => undef, 'UUGQ' => undef, 'YKYU' => undef,
Tu trouveras plus d'information sur ce genre de construction dans ce tutoriel.
28/02/2016, 15h08
africanwinners

Merci beaucoup pour votre explication très pédagogique :merci: