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

[Sergey Degtyaryov]

Доброго времени суток, cornet,

20.07.2001 в 12:38 Вы сказали буквально следующее:

c> Я не знал про это свойство if(/переменная_содержащая_шаблон/)
c> искать этот шаблон в $_ как подстроку.

Дело в том, что

if( $_=~/^.*$tpl.*$/)
{
print "Ok\n";
}

(Ваш код)
работает точно так же.
Просто ^.* и .*$ - лишнее, строка же обязательно начинается и
обязательно заканчивается =)

perldoc perlop на предмет поиска
perldoc perlre на предмет regexp

Rgds, maga