From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <cornet@zmail.ru>
Message-ID: <3B57F929.345994A9@zmail.ru>
From: cornet <cornet@zmail.ru>
X-Mailer: Mozilla 4.76 [en] (X11; U; Linux 2.2.18-ipl5mdk-up i686)
X-Accept-Language: ru, en
MIME-Version: 1.0
To: mandrake-russian@altlinux.ru
Subject: Re: [mdk-re] Re: [mdk-re] =?koi8-r?Q?=EF=C2=D2=C1=D4=CE=CF?= perl
References: <3B57EDF4.D28389B2@zmail.ru>
		<18533.010720@globetravel.spb.ru>
		<3B57F32F.775AB105@zmail.ru> <20010720131847.1f60c0f8.ujo@zuzusoft.com>
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Fri Jul 20 13:11:00 2001
X-Original-Date: Fri, 20 Jul 2001 13:26:01 +0400
Archived-At: <http://lore.altlinux.org/community/3B57F929.345994A9@zmail.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

"Artem K. Jouravsky" wrote:
> 
> Здравствуйте, 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]$
> 
> А вот это как? ;)
> 

Видимо у меня /dev/hands на бок съехали...
Ну вобщем я еще раз убедился - либо надо программировать
постоянно, либо не делать этого вовсе :-((
Однако жизнь заставляет...

Спасибо всем откликнувшимся!

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