@array=
(
...
'blablabla\?',
...
);
...........
foreach $_line ( @array)
{
$_line =~ s/\\?/'\?'/eg
if ( @_[0] =~ /^$_line/ )
{
$result = 0;
last;
}
}
perl, регулярка, переменная со спец. симв. в качестве шаблона
перла почти не знаю, а тут такая фича потребовалась
@array=
(
...
'blablabla\?',
...
);
...........
foreach $_line ( @array)
{
if ( @_[0] =~ /^$_line/ )
{
$result = 0;
last;
}
}
Цитата:
@array=
(
...
'blablabla\?',
...
);
...........
foreach $_line ( @array)
{
if ( @_[0] =~ /^$_line/ )
{
$result = 0;
last;
}
}
собственно, нужное мне значение - "blablabla?", поскольку в регулярках "?" - это спецсимвол, попытался заэкранировать. но ни в одном из следующих случаев
'blablabla\?',
'blablabla?',
"blablabla\?",
"blablabla?",
условие if ( @_[0] =~ /^$_line/ ) не выполняется, причем при гарантии что строка "blablabla?" содержится в @_[0]
может подскажет кто, как правильно задать значение переменной (или элемента массива) в данном случае?
ЗЫ. навскидку ничего умного не нашел, если я неправ - скажите.
хмм... а точно @_[0] содержит нужную строку.
Цитата:
если я неправ - скажите.
(c)
100 пудов.
я в общем сделал все через ж**у, а именно:
заработало... но это все-таки, по моему не нормально... толи интерпретатор тупит так, толи я... интерпретатор - виндовый ccperl (нет, не смотрите на меня так, это не у меня дома ;) )
я в общем сделал все через ж**у, а именно:
Код:
заработало... но это все-таки, по моему не нормально... толи интерпретатор тупит так, толи я... интерпретатор - виндовый ccperl (нет, не смотрите на меня так, это не у меня дома ;) )