ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sergey Kantarovich 2:5020/400 11 Apr 2001 15:30:31
To : All
Subject : Re: Шаблоны...
--------------------------------------------------------------------------------
"Dmitry Grishkevich" >
> вот выдрано из Perl Cookbook:
>
> sub template {
> my ($filename, $fillings) = @_;
> my $text;
> local $/; # slurp mode (undef)
> local *F; # create local filehandle
> open(F, "< $filename\0") || return;
> $text = <F>; # read whole file
> close(F); # ignore retval
> # replace quoted words with value in %$fillings hash
> $text =~ s{ %% ( .*? ) %% }
> { exists( $fillings->{$1} )
> ? $fillings->{$1}
> : ""
> }gsex;
> return $text;
> }
> Так это уже и так давно выддрано то было. Проблема в том что в хеше можно
хранить только ключ и его значение, причем одним словом. А у меня заголовок
из 5-ти слов минимум поэтому хеш тут никак не подходит.....
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
