[mdk-re] Re: [mdk-re] Обратно perl
Artem K. Jouravsky
=?iso-8859-1?q?ujo_=CE=C1_zuzusoft=2Ecom?=
Пт Июл 20 13:00:11 MSD 2001
Здравствуйте, cornet <cornet на zmail.ru>!
От Fri, 20 Jul 2001 13:00:31 +0400 вы писали на тему Re: [mdk-re] Re: [mdk-re] Обратно perl:
> Sergey Degtyaryov wrote:
> >
> > Доброго времени суток, cornet,
> >
> > 20.07.2001 в 12:38 Вы сказали буквально следующее:
> >
> > c> Я не знал про это свойство
> if(/переменная_содержащая_шаблон/)
> > c> искать этот шаблон в $_ как подстроку.
> >
> > Дело в том, что
> >
> > if( $_=~/^.*$tpl.*$/)
> > {
> > print "Ok\n";
> > }
> >
> > (Ваш код)
> > работает точно так же.
> > Просто ^.* и .*$ - лишнее, строка же обязательно начинается и
> > обязательно заканчивается =)
>
> В том то и дело, что нет! В регулярных выражениях (по крайней
> мере в perl) символ $ обозначает конец строки, а не начало
> имени
> переменной. Такой код не работает - уже пробовал - он всегда
> дает
> истину вне зависимости от содержимого $_ лишь бы она была
> определена.
> Эффектиивной частью такого кода остается ^.*$ то есть любые
> символы любое число раз, а дальше $ уже пофигу, строка то уже
> кончилась...
[ujo на ninth ujo]$ perl -e '$tt = "babuby";$_ = "sahfdhsagfbabubydskfdsjkgf";print /$tt/,"\n"'
1
[ujo на ninth ujo]$ perl -e '$tt = "babuby";$_ = "sahfdhsagfbabbydskfdsjkgf";print /$tt/,"\n"'
[ujo на ninth ujo]$
А вот это как? ;)
------
Best wishes,
+----------------------+--------------------------+
| ."-. | Work: +7-(095)-229-4278 |
| /X | _o.----. _ | ICQ: 103399444 |
|/\_ \/ / __ \_// ) | Artem K. Jouravsky |
|\__)-/_/\_____)____/ | http://www.ifirst.ru/ |
+----------------------+--------------------------+
Подробная информация о списке рассылки community