Discussion :

[scaleo]

Dans un de mes scripts je doit récupérer une tranche de hash mais je ne veut pas d'une liste plate mais d'un hashage.

J'ai donc essayé de faire une map intelligent comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Dumper;
 
my %m = ( l => 7, k => 9, y => 10, p => 46);
 
my $i = 3;
 
my %t = map {   if ($i > 0 and exists $m{$_} )
                {
                    $i--;
                   $_ => $m{$_};
                }
            } keys %m;
print Dumper(\%t);

Dans mon code de teste je veux récupérer trois clefs mais cela ne fonctionne pas très bien car une quatrième clef vide est créer par perl elle point sur la valeur undef .

merci

[MarneusCalgarXP]

Pour faire ce que tu veux, il faut déjà savoir que la méthode map s'applique à TOUS les éléments du tableau passé en paramètre. Il faut également savoir qu'une hashmap est un tableau particulier. Il faut enfin savoir que Perl a tendance à fusionner les tableaux.

Dans ton code, pour les 3 premières valeurs, tu renvoies un tableau de 2 éléments, et pour la dernière valeur, tu ne renvoies rien. Perl en déduit donc qu'il faut renvoyer un undef. Il insère donc le undef en fin de tableau fusionné. Problème, tu te retrouves avec un nombre d'éléments impair, du coup quand Perl essaie de convertir le tableau en Hash, il t'affiche un warning "Odd number of elements in hash assignment".

Pour régler ce problème, tu as 2 solutions. Soit tu conserves ton code initial, mais au lieu de renvoyer undef dans les cas où tu ne veux pas de résultat, tu renvoies un tableau vide (ainsi Perl ajoutera le contenu du tableau vide en fin de tableau fusionné, soit aucun élément, et ainsi le tableau conserve un nombre pair d'éléments):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use warnings;
use Data::Dumper;
 
my %m = ( l => 7, k => 9, y => 10 , p => 46);
 
my $i = 3;
my %t = map {   
    if ($i > 0 and exists $m{$_} )  {
        $i--;
        $_ => $m{$_}; 
    }
    else { 
    	() 
    };
} keys %m;
print Dumper(\%t);

Soit tu utilises une méthode en 2 parties :tu récupères les clés avec grep, puis les valeurs avec map:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
use Data::Dumper;
 
my %m = ( l => 7, k => 9, y => 10 , p => 46);
 
my $i = 3;
my @trimedkeys = grep { $i-- > 0 } keys %m;
my %map = map { $_ => $m{$_} } @trimedkeys;
 
print Dumper(\%map);

Enfin, encore une chose à savoir, les hashmaps ne conservent pas l'ordre d'insertion des éléments, donc tu ne les auras pas forcément dans l'ordre l, k, y, p...

Mais si tu veux, tu peux ajouter "sort" devant "keys" pour avoir les éléments dans l'ordre alphabétique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
use Data::Dumper;
 
my %m = ( l => 7, k => 9, y => 10 , p => 46);
 
my $i = 3;
my @trimedkeys = grep { $i-- > 0 } sort keys %m;
my %map = map { $_ => $m{$_} } @trimedkeys;
 
print Dumper(\%map);

Et finalement, tu as une méthode encore plus rapide en prenant une tranche de tableau des clés (entre l'indice 0 et l'indice $i - 1):

Code :

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

1
2
3
4
5
6
7
8
9
use strict;
use warnings;
use Data::Dumper;
 
my %m = ( l => 7, k => 9, y => 10 , p => 46);
my $i = 3;
my %newmap = map { $_ => $m{$_} } (sort keys %m)[0..$i-1];
 
print Dumper(\%newmap);

[pospos]

utilise la fonction grepp du module List-Pairwise :
http://search.cpan.org/~tdrugeon/List-Pairwise/
par exemple:

Code :

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

my %hash = grepp  { ($a gt 'j') && ($b > 0) } %data;

ou peu etre que mapp du meme module est plus adapté à ton probleme, que je n'ai pas vraiment cerné

[MarneusCalgarXP]

J'allais oublier une solution encore plus rapide : considérer la map comme un tableau, et prendre les n*2 premiers éléments :
(n*2 car clé + valeur = 2 éléments)

Code :

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

1
2
3
4
5
6
7
8
9
use strict;
use warnings;
use Data::Dumper;
 
my %m = ( l => 7, k => 9, y => 10 , p => 46);
my $i = 3;
my %map = (%m) [0..($i * 2) - 1];
 
print Dumper(\%map);

[scaleo]

Cool merci a vous sa marche niquel