HTML::Template: <TMPL_LOOP> verschachteln (gelöst) (Fragen zu Perl-Modulen)

[thread]15433[/thread]

HTML::Template: <TMPL_LOOP> verschachteln [gelöst]

Leser: 17

Articles: hide open all | hide show old branches

+6 replies

Gast Daniel

2010-09-02 20:49

Hallo. Ich habe folgendes Problem: Ich möchte mehrere TMPL_LOOP´s veschachteln und weiß nicht wie ich sie im CGI-Skript mit Werten befüllen kann. Wenn ich ein einfaches TMPL_LOOP mit werten befüllen will, übergebe ich an die LOOP Variable eine referenz auf ein Array, das ein Hash enthält in dem die Keys der Name der Variablen in der TMPL_LOOP sind. Aber wie mache ich dass, wenn ich Z.B. zwei TMPL_LOOP´s ineinander verschachtle

Code: (dl )

      
<TMPL_LOOP NAME="ANZAHL_SPIELE">
          <table align="center" class="table_index" border="0">
            <tr >
            <td class="table_left">Name</td>
            <td class="table_middle">1</td>
            <td class="table_middle">2</td>
            <td class="table_middle">3</td>
            <td class="table_right">Total</td>
            </tr>
            <TMPL_LOOP NAME="SPIEL">
            <tr>
            <td ><TMPL_VAR NAME="NAME"></td>
            <td ><TMPL_VAR NAME="FRAME_1_1">&nbsp;<TMPL_VAR NAME="FRAME_1_2"></td>
            <td ><TMPL_VAR NAME="FRAME_2_1">&nbsp;<TMPL_VAR NAME="FRAME_2_2"></td>
            <td><TMPL_VAR NAME="FRAME_3_1">&nbsp;<TMPL_VAR NAME="FRAME_3_2"></td>
          <td >Total</td>
            </tr>
            </TMPL_LOOP>
          </table>
        </TMPL_LOOP>

Wie krieg ich das Ding jetzt mit Werten voll

Danke

mod-edit pq: titel mit HTML::Template ergänzt
Last edited: 2010-09-02 23:00:41 +0200 (CEST)

pq

2010-09-02 21:16

User since
2003-08-04
12208 Artikel
Admin1

Move from HTML, CSS und Javascript to Allgemeines zu Perl
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
+4 replies
pq

2010-09-02 22:11
User since
2003-08-04
12208 Artikel
Admin1
ich vermute mal, du redest von HTML::Template.
zeig doch mal kurz ein paar beispieldaten.
oder ist die frage, wie die daten aussehen müssen?
im fall von HTML::Template muss jedes element der schleife wiederum ein hash sein, dessen werte dann wieder eine arrayreferenz sind.
also
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

my $data = { ANZAHL_SPIELE => [ { SPIEL => [ { NAME => 'foo', ... }, ... ], }, ], ... };
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
- +3 replies
- Gast Daniel
  
  2010-09-02 22:51
  Derzeit sieht es bei mir so aus
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  my @tables; for (my $i=1; $i<=$spiel_NR->[0][0]; $i++) { $stm=qq!SELECT person.anzeige_name, frame_1_1, frame_1_2, frame_2_1, frame_2_2, frame_3_1, frame_3_2, frame_4_2, frame_5_1, frame_5_2, frame_6_1, frame_6_2, frame_7_1, frame_7_2, frame_8_1, frame_8_2, frame_9_1, frame_9_2, frame_10_1, frame_10_2, frame_10_3 FROM spiel, person WHERE person.pers_id=spiel.pers_id AND datum ="$spiel_NR->[0][1]" AND spiel_nr ="$i"!; print qq!<br>$stm<br><br>!; my $spiel = $dbh->selectall_arrayref($stm); my %row; foreach my $games (@{$spiel}){ my %hash; $hash{'NAME'} = $games->[0]; $hash{'FRAME_1_1'} = $games->[1]; $hash{'FRAME_1_2'} = $games->[2]; $hash{'FRAME_2_1'} = $games->[3]; $hash{'FRAME_2_2'} = $games->[4]; $hash{'FRAME_3_1'} = $games->[5]; $hash{'FRAME_3_2'} = $games->[6]; $row{'SPIEL'} = %hash; } push (@tables, \%row); } $template->param('ANZAHL_SPIELE'=>\@tables);
  
  Last edited: 2010-09-02 22:53:01 +0200 (CEST)
  - +2 replies
  - pq
    
    2010-09-02 22:57
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    sieht doch eigentlich ganz gut aus, bis auf eine zeile:
    $row{'SPIEL'} = %hash;
    
    schreib stattdessen:
    push @{ $row{'SPIEL'} }, \%hash;
    
    es empfiehlt sich übrigens, lange SQL-statements im code auf mehrere zeilen
    zu verteilen, damit man nicht soviel scrollen muss.
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my $sql = <<'EOM'; SELECT foo FROM bar WHERE field = ? EOM
    
    zu dem fragezeichen, was du hier im sql siehst, lies dir mal DbiPlatzhalter durch.
    
    edit: fehler korrigiert
    Last edited: 2010-09-02 22:58:51 +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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - Gast Daniel
      
      2010-09-02 23:04
      
      Super. Das hat funktioniert. Da Währ ich nie drauf gekommen. Das mit dem DbiPlatzhalter werd ich mir mal zu gemüte führen.
      Vielen Dank.
      Last edited: 2010-09-02 23:08:17 +0200 (CEST)

View all threads created 2010-09-02 20:49.