1). Как узнать - с какими параметрами юзер вызывает скрипт? то есть
http://x.ru/a.cgi?var=data1&var2=data2
как обработать var'ы более легким способ чем через QUERY_STRING?

2). Не могу догнать - как оптимально юзать HTML-Template..

Код

<html>   <head><title><TMPL_VAR NAME=ВРЗМОЖНЫЕ ИЗМЕНЕНИЯ 1></title>   <body>   <TMPL_VAR NAME=ВОЗМОЖНЫЕ ИЗМЕНЕНИЯ 2>   <bla-bla><bla-bla>   <TMPL_VAR NAME=ВОЗМОЖНЫЕ ИЗМЕНЕНИЯ 3>   </body> </html>

тогда будет 1 тмпл файл и ВОЗМОЖНЫЕ ИЗМЕНЕНИЯ изменять в зависимости от QUERY_STRING?
но это как-то не гибко и неправильно как я чувствую.. Что делать то?

Это сообщение отредактировал(а) korob2001 - 12.3.2005, 22:09

Цитата

1). Как узнать - с какими параметрами юзер вызывает скрипт? то есть http://x.ru/a.cgi?var=data1&var2=data2 как обработать var'ы более легким способ чем через QUERY_STRING?

Юзай модуль CGI.pm, подробнее здесь: http://forum.vingrad.ru/index.php?showtopic=43044

Цитата

2). Не могу догнать - как оптимально юзать HTML-Template..

Человеку который хорошо знает HTML, будет легко работать с таким файлом, не вмешиваясь в программный код. Если нужно оптимизировать, используй Mason, mod_perl, FastCGI.

Это сообщение отредактировал(а) korob2001 - 11.3.2005, 21:34

Для работы с CGI стоит использовать модуль CGI
Как получить переданные скрипту параметры (не важно в адресной строке или через форму) написано не один раз на этом же форуме. Я, к примеру, получаю их та:

Код

#!/usr/bin/perl -w use CGI qw(:standard); my %Q=CGI::Vars();

В результате у тебя в хэше Q хранятся все переданные скрипту переменные, в виде:

Код

$Q{var1} = data1; $Q{var2} = data2;

Что касается работы с темплейтами то я не совсе понял вопрос. Ты используешь какой-то модуль для работы с ними или хочешь написать свой вариант? На самом деле вопрос еще и в том что именно ты хочешь, именно темплейты или же embeded perl. Второй вариант предпочтительнее. Как вариант могу предложить использовать свои "тэги", потом просто парсить страничку и выводить уже значения вместо твоих "тэгов".
Например:
test.html

Код

<html> <body> Some string in HTML<br> Here must be value of variable $a<!--%$a%--><br> </body> </html>

Далее парсишь то что выше:
default.cgi

Код

#!/usr/bin/perl -w use CGI qw(:standard); print header(); open FH, '<test.html>'; while (<FH>) {   s/<!--%(\%*?)%-->/eval($1)/g;   print; } close FH;

Для того что бы при запросе браузером странички она перед отправкой парсилась твоим скриптом надо кинуть в корень сайта примерно такой .htaccess

Код

Action pcgi /cgi-bin/default.cgi AddHandler pcgi .html

Это примитивный пример, для нормального embeded perl все сложнее, но направление ты надеюсь понял...
И еще... Я не гарантирую что то что написано заработает Я писал из головы и не тестил...

пасиба..

М.. я вот раньше пхп юзал для Веба.. там делается вобще все элементарно...
<?php>
инклюдим топовую часть дизайна
</php>

пишем что душе угодно

<?php>
инклюдим боттомную чать дизайна
</php>

Я вот подумал можно на перле замутить такую вешь: создаем файл скажем индекс.пл - который будет запускаться с параметром index.pl?page=news - сам индекс.пл будет сперва считывать и выдавать на STDOUT файл скажем "dizain.verh" - которы будет содержать хтмл код дизайна, потом он будет также построчно выводить в ИЕ файл "news" И затем файл "dizain.niz". Таким образом, имхо довольно удобно отделяется типичный дизайн от часто изменяющихся элементов.

Вот то что я написал, такое вообще делают? или это изврат полный? Может кто пробовал? Насколько это удобно? Имхо порой это должно быть удобнее темплейтов..

??

Вообще-то я для подобных вещей пишу класс, но можно и так:
Создай файл top.htm

Код

<html>  <head>    <title>Test</title>  </head>  <body>   <center><h1>Это верхняя часть стараницы</h1></center><br><hr>

Теперь файл news.htm

Код

<table width="50%" border="1" bgcolor="#<!--//Color//-->">     <tr><td width="100%">Новости <!--//Time//--></td></tr>     <tr><td width="100%"><!--//News//--></td></tr>   </table><br><br>

Здесь стоит обратить внимание на теги коментариев, мы в послдствии будем заменять их нужными данными.
Тепь создай файл bot.htm

Код

<br><center><h1>Это нижняя часть страницы</h1></center>  </body> </html>

Теперь напиши на Perl такой код и сохрани его в файл added.pl

Код

#!/usr/bin/perl -w use strict; my ( $top, $news, $bot ) = qw( top.htm news.htm bot.htm ); my $time = localtime; my $color = "cccccc"; my $add_news = <<"NEWS"; Привет всем! Сегодня $time я начал изучать язык Perl. Это было просто тестовое сообщение, потому прошу не обращать на него особого внимания. Пока NEWS $add_news =~ s/\n/<br>/g; print "Content-type: text/html\n\n"; for my $file ( $top, $news, $bot ) {     open( F, "< $file" ) or die $!;         while ( <F> ) {            s#<!--//Time//-->#$time#gi;            s#<!--//News//-->#$add_news#gi;            s#<!--//Color//-->#$color#gi;            print;         }     close( F ); }

в тот же каталог, куда сохранял и предидущие фалы, толко каталог должен быть исполняемым, как правило это /cgi-bin или /cgi, в зависимости от настроек сервера.

Теперь запуcти файл added.pl.

Удачи.

Это сообщение отредактировал(а) korob2001 - 12.3.2005, 22:03