VPF::Автоматизация Web - Форум программистов

Dimson

Дата 24.10.2006, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 24.10.2006

Репутация: нет
Всего: нет

Доброго времени суток!
В Perl я очень большой новичок. Поэтому, извините, проблемы соответствующие. Итак к сути проблемы:
Есть код:

Код


<html>
<head>
<!--start-->
<table>
 <tr bgcolor=#90A2C6  align="center" valign="middle" > 
    <td bgcolor=#90A2C6 colspan="5"><iframe frameborder="0" src="index.html" name="1" width=100% height="700"></iframe></td>
  </tr>
</table>
<!--stop-->
</body>
</html>

Иногда приходится менять содержимое между  и . Все это делается в ручную. До недавнего момента мня это устраивало, т.к. страничка была одна, но все поменялось когда их количество резко увеличилось -> потребовалась автоматизация. smile

JUmPER

Дата 25.10.2006, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 22.8.2006

Репутация: нет
Всего: 3

читает из файла шаблона (напр. из того, который ты предоставил)
пишет в другой файл результат

Код


open(hTemplate,"<","template.html") or die "cant open template file\n".$@."\n";
open(hResult,">","result.html") or die "cant open result file\n".$@."\n";

my $state="out";
while(<hTemplate>) {
    if (/<!--start-->/ && $state eq "out") {
        $state="in";
        print hResult;
        }
    elsif (/<!--stop-->/ && $state eq "in") {
        $state="out";
        print hResult "new text here!\n";
        print hResult;
        }
    elsif ($state eq "out") {
        print hResult;
        }
    }

close(hResult);
close(hTemplate);

а если хочешь менять это "на лету" (т.е. непосредственно во время запроса), то лучше используй Template Toolkit или что-то подобное и не изобретай велосипед smile

--------------------

Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной

Zuzu

Дата 25.10.2006, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 19.10.2006
Где: Екатеринбург

Репутация: 1
Всего: 4

Можно попытаться воспользоваться технологией SSI, как вариант. ТОлько ИМХО, это слегка тяжелее, чем формирование страницы целиком. В скрипте разбирайся, что выводить. И как выводить. По любой технолонгии. Вручную, с помощью CGI, Template Toolkit, HTML::Template ...

Код


<html>

<head>
</head>

<body>
<!--start-->
<!--#include virtual="script.cgi" -->
<!--stop-->
</body>

</html>

script.cgi

Код


#!/usr/bin/perl

use CGI;

print header;

print <<'EO_HTML';
<table>
 <tr bgcolor=#90A2C6  align="center" valign="middle" > 
    <td bgcolor=#90A2C6 colspan="5"><iframe frameborder="0" src="index.html" name="1" width=100% height="700"></iframe></td>
  </tr>
</table>
EO_HTML

exit;

Это сообщение отредактировал(а) Zuzu - 25.10.2006, 13:47

--------------------

Проводить эксперименты на живом сервере опасно, а на мертвом - бесполезно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »