|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Rookin 2:5020/238.13 23 Nov 2001 22:37:18
To : Alexei Ptshelnikov
Subject : Правильно так писать?
--------------------------------------------------------------------------------
23 Nov 01 20:16, Alexei Ptshelnikov wrote to Alexey Gradovtsev:
AP> Я делал просто шаблоны страниц, в которые уже вставлял результат работы
AP> скрипта.
AP> То есть:
AP> open (TMPL, "template.html");
AP> while (<TMPL>) {
AP> s/%TEXT%/$result/;
AP> print;
AP> }
AP> close (TMPL);
AP> Это ещё оформляется отдельной подпрограммкой и получаем удобночитаемый
AP> код, типа: f_read ($result);
А еще круче так :)
===============================
#!/usr/bin/perl
use strict;
use ObjTPL;
my $x = new ObjTPL;
print $x->parse(-text => <<'TPL');
{! db="user:password@mysql:database_name" cgi="on"}
<html>
<head>
<title>tipa test i vse takoe</title>
<style> .suka {color: #CC0000} </style>
</head>
<body>
<table>
{% query="select name, money from spisok_dolzhnikov"}
<tr>
<td>{#name}:</td><td><b {?#money>100}class="suka"{/?}>${#money}</b></td>
</tr>
{/%}
</table>
</body>
</html>
{/!}
TPL
===============================
- zxc -
--- GoldED/W32 3.0.1
* Origin: e-mail: zxc@kak-sam.to, IRC: zxc13#fidorus (2:5020/238.13)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
