Thread "Beliebig" tiefes Hash mit keys aus Array erstellen (22 answers)
Opened by shi8dao at 2011-06-21 08:35

renee
 2011-06-21 08:50
#149800 #149800
User since
2003-08-04
14371 articles
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
entwicklung@ubuntu:~$ perl -MData::Dumper -le 'my @var = qw(Hund Katze Maus); my $hashref = {}; my $tmp = $hashref; for ( @var ) { $tmp->{$_} = {}; $tmp = $tmp->{$_} } print Dumper $hashref'
$VAR1 = {
'Hund' => {
'Katze' => {
'Maus' => {}
}
}
};


So kommt man ohne eval und rekursive Funktion aus. Da in $tmp nur Referenzen gespeichert werden, wird das Original ($hashref) verändert.
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread "Beliebig" tiefes Hash mit keys aus Array erstellen