Opened by pktm at 2003-12-09 22:49
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Auch wenn es nur HTML-Schnipsel sind, ist das noch immer das klassische Anwendungsgebiet fuer Template-Systeme. Ein schoenes kleines und fuer Perl-Programmierer ohne Lernaufwand verwendbares System ist beispielsweise Text::ScriptTemplate:
Die Syntax ist an ASP und JSP angelehnt. Mit <%= ... %> wird der Wert einer Variablen oder eines Ausdrucks ausgegeben. Mit <% ... %> wird beliebiger Perl-Code, z.B. fuer Bedingungen und Schleifen geschrieben.
Alternativ koennte man hier auch schreiben:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use Text::ScriptTemplate;
my $template = Text::ScriptTemplate->new;
# Oder Template mit ->load aus einer Datei holen:
$template->pack(<<'EOF');
<%
for my $x (0 .. $max) {
my $y = $x * 2;
%>
<tr><td><%= $x %></td><td><%= $y %></td><tr>
<% } %>
EOF
$template->setq(max => 10);
print $template->fill;
Die Syntax ist an ASP und JSP angelehnt. Mit <%= ... %> wird der Wert einer Variablen oder eines Ausdrucks ausgegeben. Mit <% ... %> wird beliebiger Perl-Code, z.B. fuer Bedingungen und Schleifen geschrieben.
Alternativ koennte man hier auch schreiben:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use Text::ScriptTemplate;
my $template = Text::ScriptTemplate->new;
# Oder Template mit ->load aus einer Datei holen:
$template->pack(<<'EOF');
<tr><td><%= $x %></td><td><%= $y %></td><tr>
EOF
my $html = "";
for my $x (0 .. 10) {
my $y = $x * 2;
$template->setq(x => $x,
y => $y);
$html .= $template->fill;
}
print $html;