Ausgabe von Einträgen - #32170 (Datenbanken und Verzeichnisdienste)

steffenw

2004-05-23 21:23

User since
2003-08-15
692 Artikel
BenutzerIn

Also die ersten beiden codes haben sicher nichts ausgegeben, weil Du nicht beachtet hast, daß ich die angeforederten Namen in Großbuchstaben gewandelt habe ( 'NAME_uc' ) oder weil Du die Namen der Felder nicht aktualisiert hast. Ich hatte sie pauschal FELD1 bis FELD3 genannt.

aus:
http://search.cpan.org/~samtregar/HTML-Template-2.6/Template.pm

Code: (dl )

print "Content-Type: text/html\n\n";
print $header->output;
my @loop_data = ();
while($ref = $sth->fetchrow_hashref()) {
  push 
    @loop_data,
    { ZENSUR => $ref->{word},
      ERSATZ => $ref->{replacement},
      ANZEIGE => 1,
      FORMULAR => 0,
    },
  ;
} 
$subtemplate->param(THIS_LOOP => \@loop_data);
$content = $subtemplate->output();
$template->param(CONTENT => $content);
print $template->output;
print $footer->output;
exit;

oder

Code: (dl )

print "Content-Type: text/html\n\n";
print $header->output;
while($ref = $sth->fetchrow_hashref()) {
  $subtemplate->param(
    [ THIS_LOOP =>
      { ZENSUR => $ref->{word},
        ERSATZ => $ref->{replacement},
        ANZEIGE => 1,
        FORMULAR => 0,
      },
    ],
  );
} 
$content = $subtemplate->output();
$template->param(CONTENT => $content);
print $template->output;
print $footer->output;
exit;

Benutze

Code: (dl )

1
2

use Data::Dumper;
print Dumper \@loop_data;

um Dir anzuschauen, wie die Datenstruktur der angeforderten Daten aussieht. Probieren allein nutzt nichts.\n\n

$SIG{USER} = sub {love 'Perl' or die};