Discussion :

[djibril]

Bonjour,

Question bête :
à partir d'une liste my @liste = qw / a b c d/;comment créer le hash suivant $hash->{a}{b}{c}{d} = undef;?

[djibril]

La liste peut être de taille quelconque.

[Philou67430]

Ce n'est pas "strictement" ce que tu veux (le undef est remplacé par un hash vide) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
$ perl -E 'my @liste = qw /a b c d/;my %hash;my $hash = \%hash;foreach my $level (@liste) { $hash->{$level} = {}; $hash = $hash->{$level} };use Data::Dumper; say Data::Dumper->Dump([\%hash],[qw(*hash)])'                                                             %hash = (
          'a' => {
                   'b' => {
                            'c' => {
                                     'd' => {}
                                   }
                          }
                 }
        );

(normal que j'arrive plus à utiliser les boutons d'édition de message, par exemple pour la balise CODE ?)

[Lolo78]

Hum, réponse pas très propre (et pas testée)...

Code :

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

1
2
3
4
my @liste = qw / a b c d/;
@liste = map { "{$_}"} @liste;
my $string = join '', '$hash->', @liste, " = undef";
eval $string;

Bon, finalement, un petit test sous le debugger:

Code :

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

1
2
3
4
5
6
 x $hash
0  HASH(0x8032f028)
   'a' => HASH(0x80431588)
      'b' => HASH(0x804315b8)
         'c' => HASH(0x804315e8)
            'd' => undef

[cmcmc]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Taisha:~/tttmp $ perl -MData::Dumper -e 'sub to_hash { my $c; $c = { $_ => $c } for reverse @_; $c }; print Dumper(to_hash(qw(a b c d)))'
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'd' => undef
                                   }
                          }
                 }
        };
Taisha:~/tttmp $

[Philou67430]

Merci cmcmc

[djibril]

Merci à vous trois.

@philou, ce code peut toujours servir pour réutiliser ton code au niveau des sommaire en partant d'un hash !

[cmcmc]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Taisha:~/tttmp $ perl -MData::Dumper -e 'sub to_hash { my $c; $c = { $_ => $c } for reverse @_; $c }; print Dumper(to_hash(qw(a b c d)))'
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'd' => undef
                                   }
                          }
                 }
        };
Taisha:~/tttmp $

variante sans reverse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Taisha:~/tttmp $ perl -MData::Dumper -e 'sub to_hash { my $c = undef; $c = { pop @_ => $c } while @_; $c } print Dumper(to_hash(qw(a b c d)))'
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'd' => undef
                                   }
                          }
                 }
        };
Taisha:~/tttmp $

variante récursive (ma préférée )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Taisha:~/tttmp $ perl -MData::Dumper -E 'sub to_hash { @_ ? { shift(@_) => to_hash(@_) } : undef } say Dumper(to_hash(qw(a b c d)))'
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'd' => undef
                                   }
                          }
                 }
        };

Taisha:~/tttmp $

[cmcmc]

j'ai changé d'avis , je préfère celle là (récursive aussi) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Taisha:~/tttmp $ perl -MData::Dumper -E 'sub to_hash { $_[0] && { shift(@_) => to_hash(@_) } } say Dumper(to_hash(qw(a b c d)))'
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'd' => undef
                                   }
                          }
                 }
        };

Taisha:~/tttmp $

Mais attention, elle ne supporte pas 0 comme clé

Code :

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

1
2
3
4
5
6
Taisha:~/tttmp $ perl -MData::Dumper -E 'sub to_hash { $_[0] && { shift(@_) => to_hash(@_) } } say Dumper(to_hash(qw(a 0 c d)))'
$VAR1 = {
          'a' => '0'
        };
 
Taisha:~/tttmp $

en fait la version suivante serait plus robuste mais malheureusement la feuille produite contient 0 et non undef...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Taisha:~/tttmp $ perl -MData::Dumper -E 'sub to_hash { @_ && { shift(@_) => to_hash(@_) } } say Dumper(to_hash(qw(a 0 c d)))'  C-c C-z
$VAR1 = {
          'a' => {
                   '0' => {
                            'c' => {
                                     'd' => 0
                                   }
                          }
                 }
        };
 
Taisha:~/tttmp $