Форум Сайтостроение Веб-строительство

постобработка сформированной страницы в perl

P
На сайте с 13.07.2007
Offline
48
pavelp
535

Хочу прикрутить к старому проекту на перле человекопонятные урлы а переписывать все пассажи <a href="services?a='.$rub->[0].'&b='.$rub->[1].'&c='.$rub->[2].'&d='.$rub->[3].'" на более централизованное формирование адресов не имею ни какого желания. поэтому хочу узнать есть ли в этом языке возможность сграбить всю страницу в переменную, а потом уже оперировать при помощи регулярных выражений. на подобии функций ob_start/ob_get_clean в языке php

N
На сайте с 06.05.2007
Offline
419
netwind
#1

модуль Output::Buffer

Кнопка вызова админа ()
P
На сайте с 13.07.2007
Offline
48
pavelp
#2

спасибо, а оно по умолчанию поставлено в перле или надо пинать админа чтоб это ставить?

T.R.O.N
На сайте с 18.05.2004
Offline
314
T.R.O.N
#3
pavelp:
спасибо, а оно по умолчанию поставлено в перле или надо пинать админа чтоб это ставить?

скорее всего пинать. Да и не факт что на виртуальном хосте все будет нормально работать.

А что мешает все print заменить на $out.= и потом сделать функцию которая эту переменную обрабатывает и выводит

От воздержания пока никто не умер. Хотя никто и не родился! Prototype.js был написан теми, кто не знает JavaScript, для тех, кто не знает JavaScript (Richard Cornford)
N
На сайте с 06.05.2007
Offline
419
netwind
#4

Нет, по-умолчанию этого модуля нет.

Лучше через админа, хотя опытный программист нашел бы способ подпихнуть модули.

BN
На сайте с 24.11.2008
Offline
0
by.n1mb
#5

Посмотрите ответ на вопрос "How can I read in an entire file all at once?" в perlfaq, вроде это то, что нужно.

P
На сайте с 13.07.2007
Offline
48
pavelp
#6
T.R.O.N:
скорее всего пинать. Да и не факт что на виртуальном хосте все будет нормально работать.
А что мешает все print заменить на $out.= и потом сделать функцию которая эту переменную обрабатывает и выводит

файликов под сотню в которых сплошные принты

pavelp добавил 04.12.2008 в 03:02

my $out = '';

open my $handle, '>', \$out or die "Cannot open \$out: $!";

my $handle_old = select $handle;

вот это решение явно без сторонних модулей работает. если конечно это то что надо.

N
На сайте с 06.05.2007
Offline
419
netwind
#7

Модуль из архива CPAN не может быть сторонним!

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

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий