HTML::Template: verschachtelte Loops (gelöst) (Fragen zu Perl-Modulen)

[thread]16709[/thread]

HTML::Template: verschachtelte Loops [gelöst]

Tags: HTML::Template Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+3 replies

maceis

2011-09-08 20:39

User since
2005-01-05
4 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

ich habe Probleme, einen verschachtelten Loop mit HTML::Template zum Laufen zu bekommen.
Die diversen Threads zu dem Thema habe ich schon durch, komme aber immer noch nicht klar.

Ich habe eine einfachen verschachtelten Loop in einem Template.

Die Daten befinden sich in einem Hash, dessen Schlüssel im äußeren Loop in <TMPL_VAR name="Titel"> geschrieben werden soll.
Die Werte des Hasses sollen dann für den jeweiligen Schlüsseln in <TMPL_VAR name="Termin"> im inneren Loop geschrieben werden.

Hier mal ein Beispielskript auf Grundlage eines hier gefundenen Testskripts zur Erläuterung:

Code: (dl )

#!/usr/bin/perl -w
use strict;
use HTML::Template;

# open the html template
my $doc = <<ENDE
<TMPL_LOOP name="outer_loop">
    <td>
    <TMPL_VAR name="schluessel">
      <TMPL_LOOP name="inner_loop">
        <br /><TMPL_VAR name="daten">
      </TMPL_LOOP>
    </td>
</TMPL_LOOP>
ENDE
    ;   
my $template = HTML::Template->new(scalarref => \$doc);

# Beispiedaten
my %thehash = ( 
  Erster_Schluessel => [ 'a1', 'a2' ],
  Zweiter_Schluessel => [ 'b1', 'b2', 'b3' ]
);

my (@outer_loop, @inner_loop, $schluessel, $daten);

foreach $schluessel (keys %thehash) {
  my %outer_loop_row;
  foreach my $daten (@{$thehash{$schluessel}}) {
    my %inner_loop_row;
    $inner_loop_row{"daten"} = $daten;
    push (@inner_loop, \%inner_loop_row);
}
%outer_loop_row =(
  schluessel => $schluessel,
  inner_loop => \@inner_loop
);
push (@outer_loop, \%outer_loop_row);
}

$template->param(outer_loop => \@outer_loop);

print $template->output;

Die Ausgabe ist:

Code: (dl )

    <td>
    Erster_Schluessel
      
        <br />a1
      
        <br />a2
      
        <br />b1
      
        <br />b2
      
        <br />b3
      
    </td>

    <td>
    Zweiter_Schluessel
      
        <br />a1
      
        <br />a2
      
        <br />b1
      
        <br />b2
      
        <br />b3
      
    </td>

Die Ausgabe soll aber sein:

Code: (dl )

    <td>
    Erster_Name
      
        <br />a1
      
        <br />a2
      
    </td>

    <td>
    Zweiter_Name
      
        <br />b1
      
        <br />b2
        
        <br />b3
    
    </td>

Wie bekomme ich das hin?

gruß maceis

Eppur Si Muove (Gallileo Gallilei)

pq

2011-09-08 20:54

User since
2003-08-04
12208 Artikel
Admin1

Verschoben von Perl/CGI nach Fragen zu Perl-Modulen
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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

maceis

2011-09-08 21:05

User since
2005-01-05
4 Artikel
BenutzerIn
[default_avatar]

Nachdem ich den Beitrag abgeschickte hatte, habe ich noch verschiedene Sachen probiert und bin auf eine Lösung gekommen.

Jetzt wo ich die Lösung habe, ist es eigentlich klar und entspricht auch dem (IMHO) wenig aussagekräftigen Beispiel in der Doku.

Hier also meine Lösung. Ich hoffe, es hilft mal jemandem:

Code: (dl )

#!/usr/bin/perl -w
use strict;
use HTML::Template;

# open the html template
my $doc = <<ENDE
<TMPL_LOOP name="outer_loop">
    <td>
    <TMPL_VAR name="schluessel">
      <TMPL_LOOP name="inner_loop">
        <br /><TMPL_VAR name="daten">
      </TMPL_LOOP>
    </td>
</TMPL_LOOP>
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;
}

gruß maceis

Eppur Si Muove (Gallileo Gallilei)

View all threads created 2011-09-08 20:39.