';
# print = Ausgabe
# $fh in den Filehandle
# $string das was geschrieben werden soll
print $fh $string;
close $fh or die $!;
# Erzeuge alle HTML-Seiten aus Documentlist mit parents
my @doneele;
foreach my $ele (@documentlist){
if(@{$ele->child()}){
if(!@{$ele->parent()}){
my $file = ${$ele->name()}.'.html';
open($fh,'>',$file) or die $!;+
my $string = ''.$file.''.
'Zurück
';
}else{
my $file = ${$ele->name()}.'.html';
open($fh,'>',$file) or die $!;+
my $string = ''.$file.''.
'Zurück
';
}
my $header = ${$ele->child()}[0];
# erzeuge headerzeile
foreach my $ele2 (@documentlist){
if($header eq ${$ele2->name()}){
my %hash = %{$ele2->spalteninfo()};
my @sorted = sort keys %hash;
$string .= '
';
for my $key(@sorted){
$string .= '
'.$key.'
';
}
$string .= '
';
last;
}
}
# erzeuge spalteninformationszeilen
foreach my $child (@{$ele->child()}){
foreach my $ele3 (@documentlist){
if($child eq ${$ele3->name()}){
# Wenn keine Blätter
if(@{$ele3->child()}){
my %hash = %{$ele3->spalteninfo()};
my @sorted = sort keys %hash;
$string .= '
';
for my $key(@sorted){
if($key eq "Titel"){
$string .= '