#!/usr/bin/perl -w
use strict;
use HTML::Template;
# open the html template
my $doc = <
|
ENDE
;
my $template = HTML::Template->new(scalarref => \$doc);
# Beispiedaten
my %thehash = (
Erster_Schluessel => [ 'a1', 'a2' ],
Zweiter_Schluessel => [ 'b1', 'b2', 'b3' ]
);
foreach my $schluessel (keys %thehash) {
my (@outer_loop, @inner_loop, $daten);
my %outer_loop_row;
foreach my $daten (@{$thehash{$schluessel}}) {
my %inner_loop_row;
$inner_loop_row{"daten"} = $daten;
push (@inner_loop, \%inner_loop_row);
}
push (@outer_loop, \%outer_loop_row);
# %outer_loop_row =(
# schluessel => $schluessel,
# inner_loop => \@inner_loop
# );
$template->param(outer_loop =>
[ {
schluessel => $schluessel,
inner_loop => \@inner_loop
}
],
);
print $template->output;
}