Forum Webscript.Ru

Программирование => Perl => Тема начата: grinder от 22 Июля 2002, 23:54:40

Название: include в perl
Отправлено: grinder от 22 Июля 2002, 23:54:40

Немного писал на php, теперь возникла надобность писать на perl. Как реализовать на перл, действие аналогичное в пхп include("file.inc"), где file.inc содержит html?

Название: include в perl
Отправлено: Chs от 23 Июля 2002, 09:22:42

Код: [Выделить]


open(INC,"< file.inc") || die($!);
while()
{
 print;
}
close(INC);

имхо

Название: include в perl
Отправлено: Evgeny от 23 Июля 2002, 12:32:09

А если
file.inc

Код: [Выделить]




?

Название: include в perl
Отправлено: NeoNox от 23 Июля 2002, 13:11:55

Автор то знает шо там в этом file.inc может находиться?

sub htmlescape {
#Типа просто квотим шо гужно :)
#А то шо ненужно не квотим....

   my $text = shift;

   $text =~ s/&/&/g;
   $text =~ s/"/"/g;
   $text =~ s/  / \\ /g;
   $text =~ s/   $text =~ s/>/>/g;
   $text =~ s/\\t/ \\  \\  \\ /g;
   $text =~ s/\\n/
/g;

   return $text;
}

Название: include в perl
Отправлено: grinder от 23 Июля 2002, 22:05:59

Спасибо за пищу для размышлений. Не фига не понятно.:) Чтож делать буду разбираться...
Возник вопрос в связи со всем этим. Используется ли этот метод на практике? Может, если приходится писать на перле, то для этих целей использовать SSI?

Название: include в perl
Отправлено: Evgeny от 24 Июля 2002, 14:41:59

grinder

Цитировать

Может, если приходится писать на перле, то для этих целей использовать SSI?

Нет, не пойдёт, уже как-то обсуждалось, чаще всего сервер настроен так, чтобы не разбирать директивы SSI в аутпуте CGI.

Название: include в perl
Отправлено: Unregistered от 14 Августа 2002, 12:28:14

В текстовом файле (кстати, лучше уж его и обозвать file.txt) должен быть только чистый HTML без всяких РНР-шных прибамбасов. Потом пишем:
open FILE, "file_path/file.txt";
@text=;
close FILE;
print "Content-Type: text/html\\n\\n";
foreach $text (@text){
print "$text";
}

Еще можно так: в текстовом файле пишем:
$text="
строки HTML-кода
сколько угодно строк
количество строк не важно
";
В скрипте пишем:
require "file_path/file.txt";
print "Content-Type: text/html\\n\\n";
print "$text";

Название: include в perl
Отправлено: dymka от 14 Августа 2002, 13:41:34

open(FILE, $filename);
$/ = undef; # чтобы не читать файл по строчкам
print "Content-type: text/html\\n\\n" . ;
close(FILE);
во втором случае лучше
$text = qq~
ваш текст с "кавычками"
~;

Название: include в perl
Отправлено: SteelRat от 07 Сентября 2002, 04:33:33

require "somefile";#?