include в perl

[grinder]

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

[Chs]

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


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

имхо

[Evgeny]

А если
file.inc

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




?

[NeoNox]

Автор то знает шо там в этом 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;
}

[grinder]

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

[Evgeny]

grinder

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

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

[Unregistered]

В текстовом файле (кстати, лучше уж его и обозвать 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";

[dymka]

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

[SteelRat]

require "somefile";#?