Перейти к содержанию

Простой способ работы с простыми темплейтами


Рекомендуемые сообщения

sub template {

my $template = shift;

my %enviroment = ( @_ );

-r $template || die "file '$template' not found\n";

open ( TEMPLATE, "$template" );

$template = join '', <TEMPLATE>;

close ( TEMPLATE );

## apply enviroment

$template =~ s/\$tpl{env:\/\/([0-9,A-Z,a-z,_,-]+)}/$enviroment{$1}/eg;

## apply file

$template =~ s/\$tpl{file:\/\/([0-9,A-Z,a-z,_,-,\/,\.,\!]+)}/template("$1 ", %enviroment)/eg;

return $template;

}

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

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

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
×
×
  • Создать...