Thread Arrays an Templates übergeben: Arrays an Templates übergeben (19 answers)
Opened by pug at 2006-02-02 13:05

pug
 2006-02-17 18:37
#29615 #29615
User since
2005-08-17
91 Artikel
BenutzerIn
[default_avatar]
OK, ich habe folgendes verbrochen:
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
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use DBI;
use CGI::Carp qw ( fatalsToBrowser );
use HTML::Template::Compiled;

use constant TMPL_FILE => "$ENV{DOCUMENT_ROOT}/db/templates/neue_auktion.tmpl";
...
...
# hier wird eine Datenbank geöffnet und die Rückgabe in "result" gepeichert.

$result->execute() or die "Abfrage nicht ausfuehrbar -kategorie!\n";

while ( $zeile = $result->fetchrow_arrayref )
{
push ( @kategorien, $zeile->[0] );
}

$result->finish();

$tmpl = new HTML::Template::Compiled ( filename => TMPL_FILE );

$tmpl->param ( vorname => $vorname,
nachname => $nachname,
kategorien => \@kategorien );

print $tmpl->output;

$dbh->disconnect();
exit;


Das Template siht jetzt 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
<HTML>

<HEAD>
<TITLE> Persoenliche Startseite von <TMPL_VAR NAME="vorname"> <TMPL_VAR NAME="nachname"> </TITLE>
</HEAD>

<BODY BGCOLOR="yellow">
<BR>
<HR>
<H3> Herzlich Willkommen <TMPL_VAR NAME="vorname"> <TMPL_VAR NAME="nachname"> </H3>
<BR>
<BR>
<BR>
<SELECT NAME="kategorien" SIZE="1">
<TMPL_LOOP NAME="kategorien">
<OPTION><TMPL_VAR NAME="_"></OPTION>
</TMPL_LOOP>
</SELECT>
</BODY>

</HTML>


Aber vom Server bekomme ich diese Meldung:
Quote
[Fri Feb 17 17:22:57 2006] [error] [client 127.0.0.1] malformed header from script. Bad header=<HTML>: /usr/lib/cgi-bin/neue_auktion.cgi


Gruss Christian
Ein Betriebssystem sie zu knechten, sie alle zu finden, Ins Dunkel zu treiben und ewig zu binden.

William Gates III

View full thread Arrays an Templates übergeben: Arrays an Templates übergeben