LINUX.ORG.RU

perl. Подстановка в поиск по шаблону.


0

0

Я новичок как в perl так и в CGI :)

Как сделать подстановку в поиск по шаблону ? типа:

while <MAILLOG> { if (m/здесь хочу сделать подстановку/) { print "<tr><td>$_</tr><td>"; } }

Если туда просто подставить скаляр, то не проходит. Кавычки не помогают... Если плохо читал, покажите где читать.

while <MAILLOG>

{

if (m/здесь хочу сделать подстановку/) {

print "<tr><td>$_</tr><td>";

}

}

paranormal ★★
() автор топика

Непонятно, что же в итоге хочется. Регекс с динамическим содержимым? Тогда my $regex = "\w+"; if(m/$regex/) { foo() } должно работать. Если нужно, чтобы содержимое $regex не интерпретировалось - m/\Q$dangerous_var\E/

anonymous
()
Ответ на: комментарий от anonymous

Все разобрался...

Вопрос был задан непонятно... Извиняюсь.

Дело в том что подставлялось значение QUERY_STRING: name=value&name2=value2

отделил value, все заработало.

paranormal ★★
() автор топика
Ответ на: комментарий от paranormal

> Дело в том что подставлялось значение QUERY_STRING: name=value&name2=value2

_Настоятельно_ рекомендую не изобретать велосипед, а использовать
модуль CGI.pm.

Onanim
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.