- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #513 [562]
От : Alexander Pashchenko 2:5062/17.212 05 октября 03, 13:05
Кому : All 08 октября 03, 21:54
Тема : Разделить код и HTML
-------------------------------------------------------------------------------
День добрый _All_ !
*Я чайник!*
В общем начитался я www.dklab.ru, про сабж. Hо не нравяться мне их способы (или
я просто не понял как их использовать).
В общем, хочу чего-нибудь более простого.
А именно:
Есть у меня допустим три файла:
--test.html--
Переменная "test"=$test
--test.pm--
#!z:/perl/bin/perl.exe
package test;
require Exporter;
@ISA = 'Exporter';
@EXPORT = qw(inc_html);
sub inc_html{
my($filename)=shift(@_);
open(IN,"$filename") or die "Can't open $filename. Error: $!";
foreach(){
print;
}
close(IN);
}
return 1;
--test.pl--
use test;
$test="my_test_value";
inc_html("test.htm");
--------------------------------
Чего я хочу: Вставить html-ку наподобие как include() в php. Т.е. чтобы
виделись переменные скрипта.
Подскажите, где мне поправить руки и что на эту тему почитать.
Счастливо _All_ !
... на паyзе: ERA - AMENOCLORY
--- 1.1.5-020726
* Origin: Меньше знаешь - крепче спишь! (2:5062/17.212)