Opened by smack: at 2007-06-04 18:47
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
[quote=smack:,04.06.2007, 17:17]bestehendes template system. jup, aber das wäre hier oversized, da du vor dir das komplette script siehst :)
fürs andere werde ich html::template benutzen[/quote]
naja...
template:
das skript ist so kürzer =)
ich sag das nur, weil man erfahrungsgemäß bestehende skripte irgendwann
erweitern will, und dann brauchst du vielleicht eine funktionalität
für schleifen im template oder so.
fürs andere werde ich html::template benutzen[/quote]
naja...
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
use HTML::Template::Compiled;
my $fehlernummer = $ENV{'QUERY_STRING'};
my $htc = HTML::Template::Compiled->new(
filename => "template/$fehlernummer.html",
tagstyle => [qw(-classic -comment)],
);
my %var = (
referer => $ENV{'HTTP_REFERER'},
request => $ENV{'REQUEST_URI'},
appname => $ENV{'HTTP_USER_AGENT'},
ip => $ENV{'REMOTE_HOST'},
furahid => $cgi->cookie('furahiD')
);
$htc->param(%var);
print $cgi->header;
print $htc->output;
exit();
template:
Code: (dl
)
1
2
3
4
5
Du kommst von: <%= referer %>
Du wolltest sehen: <%= request %>
Dein Browser: <%= appname %>
Deine IP: <%= ip %>
Deine furahiD: <%= furahid %>
das skript ist so kürzer =)
ich sag das nur, weil man erfahrungsgemäß bestehende skripte irgendwann
erweitern will, und dann brauchst du vielleicht eine funktionalität
für schleifen im template oder so.
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
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem