hash in hash bzw. wie lege ich das am günstigsten an

[pl]

Using Hash-Slice

use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use strict;
use warnings;

my @res = ();
my @fields = qw(Format Address Reserve1 Reserve2);
while( my $lin = <DATA> ){
    chomp $lin;
    my %hunt = ();    
    @hunt{ @fields } = split /;/, $lin;
    push @res, \%hunt;
}

print Dumper \@res;



__DATA__
dezimal;192.168.1.2;Res1;Res2
dezimal;192.168.1.3;Res3;Res4

Ergebnis

$VAR1 = [
          {
            'Address' => '192.168.1.2',
            'Format' => 'dezimal',
            'Reserve1' => 'Res1',
            'Reserve2' => 'Res2'
          },
          {
            'Address' => '192.168.1.3',
            'Format' => 'dezimal',
            'Reserve1' => 'Res3',
            'Reserve2' => 'Res4'
          }
        ];

Weils so schön is.