array-hash-Struktur zusammenbasteln - #123493 (Allgemeines zu Perl)

2009-07-23 11:45

User since
2003-08-04
12209 Artikel
Admin1

template:

Code: (dl )

<%loop serverliste %>
<li><a href="#"><%= server %></a>
<ul>
<%loop dbs %>
<li><a href="#"><%= _ %></a>
<ul>
<li><a href="?section=status_db.pl&amp;datenbank=<%= _ %>">Status</a></li>
</ul>
</li>
<%/loop dbs %>
</ul>
</li>
<%/loop serverliste %>

daten:

Code (perl): (dl )

my @data = (
    {
        server => "foo",
        dbs => [qw/ f1 f2 f3 /],
    },
    {
        server => "bar",
        dbs => [qw/ b1 b2 b3 b4 /],
    },
);

aufruf:

Code (perl): (dl )

my $htc = HTML::Template::Compiled->new(
    filename => '...',
    default_escape => "HTML", # unbedingt zur gewohnheit machen
);
$htc->param(serverliste => \@data);

Last edited: 2009-07-23 11:46:44 +0200 (CEST)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem