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

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

[cornet]

Привет всем!

Сорри, но опять вопрос.

Есть строка, полученная программой из вне.
$string
Есть шаблон, полученный программой из вне.
$template

Как проверить наличие шаблона в строке если шаблон хранится в
переменной и на момент написания программы не известен???

То есть вставить его в конструкцию вида:

if($string=~/^.*<как то указать на $template>.*$/)
{
print "Ok\n";
}

Или можно это решить проще и другими средствами?

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

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

[Sergey Degtyaryov]

Доброго времени суток, 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/);

Rgds, maga.

Re: [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 ********

[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

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

[cornet]

Sergey Degtyaryov wrote:
> 
> Доброго времени суток, cornet,
> 
> 20.07.2001 в 12:38 Вы сказали буквально следующее:
> 
> c> Я не знал про это свойство if(/переменная_содержащая_шаблон/)
> c> искать этот шаблон в $_ как подстроку.
> 
> Дело в том, что
> 
> if( $_=~/^.*$tpl.*$/)
> {
> print "Ok\n";
> }
> 
> (Ваш код)
> работает точно так же.
> Просто ^.* и .*$ - лишнее, строка же обязательно начинается и
> обязательно заканчивается =)

В том то и дело, что нет! В регулярных выражениях (по крайней
мере в perl) символ $ обозначает конец строки, а не начало имени
переменной. Такой код не работает - уже пробовал - он всегда дает
истину вне зависимости от содержимого $_ лишь бы она была
определена. 
Эффектиивной частью такого кода остается ^.*$ то есть любые
символы любое число раз, а дальше $ уже пофигу, строка то уже
кончилась...

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

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

[Sergey Degtyaryov]

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

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

c> В том то и дело, что нет! В регулярных выражениях (по крайней
c> мере в perl) символ $ обозначает конец строки, а не начало имени
c> переменной. Такой код не работает - уже пробовал - он всегда дает
c> истину вне зависимости от содержимого $_ лишь бы она была
c> определена. 

Неправда Ваша все же.
Попробуйте

$string = '00120';
for (1..5)
{
($string =~ /^.*$_.*$/) ? print "Found\n" : print "Not found\n";
}

$ - конец строки, $_ - переменная.

Rgds, maga

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

[Artem K. Jouravsky]

Здравствуйте, 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/   |
+----------------------+--------------------------+		      

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

[cornet]

"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 ********

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

[Mikhail Zabaluev]

Hello Sergey,

On Fri, Jul 20, 2001 at 12:48:30PM +0400, Sergey Degtyaryov wrote:
>
> perldoc perlop на предмет поиска
> perldoc perlre на предмет regexp

А также perlsyn, perlvar, ...

-- 
Stay tuned,
  MhZ                                     JID: mookid@jabber.org
___________
Matz's Law:
	A conclusion is the place where you got tired of thinking.