Problem mit Listen und Hashs - #154861 (Allgemeines zu Perl)

topeg

2011-12-16 00:33

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Erstens musst du anonyme Arrays nutzen : [...]
Zweitens musst du die Arrays dereferenzieren, bevor du über sie iterieren kannst: @{...}
Allso hiet der Code:

Code (perl): (dl )

my @Logwerte = (
  { Name => "Name1", GAs => [{GA => "GA1", columnName => "A"}]},
  { Name => "Name2", GAs => [{GA => "GA2", columnName => "A"},
                             {GA => "GA3", columnName => "B"}]},
);

# log each group address
for my $element (@Logwerte)
{
  for my $GAelement (@{$element->{GAs}})
  {
    print "subscribe for GA [$GAelement->{GA}] and columnName [$GAelement->{columnName}]")
  }
}

Perl hat aus deinem Code gemacht:

Code (perl): (dl )

my @Logwerte = (
  {
    Name => "Name1",
    GAs => {
             GA => "GA1",
             columnName => "A"
           }
  },
  {
    Name => "Name2",
   GAs => 
          {
            GA => "GA2",
            columnName => "A"
          },
   'HASH(0815)' => undef
  },
);

und bei foreach my $GAelement ($element->{GAs}) war das Array ein Element lang und enthielt nur $element->{GAs}