Problem der Zerlegung - #69952 (Allgemeines zu Perl)

renee

2006-09-15 16:41

User since
2003-08-04
14371 Artikel
ModeratorIn

Du solltest Dir mal anlesen, wie ein Hash aufgebaut ist, dann verstehst Du auch, warum Deine Ausgabe so ist wie sie ist!

Probier mal:

Code: (dl )

foreach my $ele (@documentlist){
    my $file = ${$ele->name()}.'.html';
    open(my $fh,'>',$file) or die $!;+
    print $fh '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>'.$file.'</title></head><body>'.
       '<h[3] align=center>'.${$ele->name()}.'</h[3]><br/><br/><br/> <table border="3">';

# PROBLEM
    my %hash = %{$ele->spalteninfo()};
    my @sorted = sort keys %hash;
    for my $key(@sorted){
        print $fh '<th>'.$key.'</th>';
    }
    for my $key(@sorted){
        print $fh '<td>'.$hash{$key}.'</td>';
    }

    print $fh'</table></body></html>';
    close $fh or die $!;
}

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/