[mdk-re] Re: [mdk-re] Обратно perl

[cornet]

Sergey Degtyaryov wrote:
> 
> Доброго времени суток, cornet,
> 
> 20.07.2001 в 11:49 Вы сказали буквально следующее:
> 
> c> Есть строка, полученная программой из вне.
> c> $string
> c> Есть шаблон, полученный программой из вне.
> c> $template
> 
> c> Как проверить наличие шаблона в строке если шаблон хранится в
> c> переменной и на момент написания программы не известен???
> 
> c> if($string=~/^.*<как то указать на $template>.*$/)
> c> {
> c> print "Ok\n";
> c> }
> 
> А Вы пробуете решить задачу, перед тем как спросить? =)
> Кажется Вы и так все знаете =)

Как выясняется вовсе не все :-))
 
> $_ = 'Here we will find any template';
> $tpl = 'template';
> print "Looks like we found this f...ing \$tpl\n" if (/$tpl/);

Я не знал про это свойство if(/переменная_содержащая_шаблон/)
искать этот шаблон в $_ как подстроку.
Спасибо ОГРОМНОЕ! Все получилось :-))

-- 
******** FIRE & STEEL ********