ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Voinkov                         2:5053/24.110  20 Feb 2001  09:32:19
 To : Romych VK Yerimeyenko
 Subject : require or not require
 -------------------------------------------------------------------------------- 
 

 
 05 Фев 01 12:46, Romych VK Yerimeyenko -> All:
 
  RY> Сейчас это делается так:
 
  RY> в шаблоне (файл $tpl) пишем:
 
  RY>     $description_tpl = qq~<p>{description}<hr>~;
 
  RY> в скpипте выполняем:
 
  RY>     require "$tpl";
  RY>     $_ = $description_tpl;
  RY>     s/{description}/$description/g;
  RY>     print "$_";
 
 я это делаю так:
 
 $description_tpl = qq~<p>\$description<hr>~;
 $description = 'Значение!!!';
 $ret = eval $description_tpl;   # '<p>Значение!!!<hr>'
 print $ret;
 В $description_tpl может быть сколько угодно много переменных которые перед
 eval нужно определить :)
 
 У меня ActiveState Perl v5.6.0 build 613 WinNT 4.0
 Oleg
 
 ---
  * Origin: Living in interesting times (2:5053/24.110)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    require or not require   Romych VK Yerimeyenko   05 Feb 2001 13:46:00   require or not require   Oleg Voinkov   20 Feb 2001 09:32:19