Передаю в код строку "dfgdfg!#dfg$%jh^y&*yy()y" в условии работает ложь. В другой раз передаю строку "jhtgdjgh76756" и срабатывает опять ложь. Как произвести проверку наличия символов "][<>\|&;`'\"*\$\?~\^(){}\n\r" в строке, чтобы срабатывала истина, когда они присутствуют???????

my $query = $ENV{QUERY_STRING};

my $metasymbols = "][<>\|&;`'\"*\$\?~\^(){}\n\r";

print "Content-Type:text/html\n\n";

if ($query =~ s/[$metasymbols\\]//g) 
     {
     print "<h2>1</h2><br>";
     print $query;
    }
else
    {
     print "<h2>2</h2><br>";
     print $query;
    }

Странное экранирование. Экранировать нужно для регулярки квадратные скобки и слэш; для строки в двойных кавычках $, чтобы не подставлять $?. Хотя вроде без экранирования ][ тоже работает - DWIM 

попробовал с экранированием всерно на ложь вылетает обоих случаях. пробовал W, не помогает. 

Как определяем, что вылетает? Кэш браузера ни при чем? Не может быть проблема в другом участке кода? Поставьте warn для отладочных выводов в лог.
P.S. Зачем цитировать пост целиком..

не так выразился... вылетает - в условии переходит всегда в ложь, при передаче любой строки, с символами "корявыми" или без них.  в другом не может. что такое warn  и куда его поставить?
p.s. увлекся

еще вот это не расшифровал)

warn - списковый оператор, выводящий предупреждение в STDERR, что в веб-программировании обычно направляется в лог ошибок.



Это сообщение отредактировал(а) JAPH - 8.2.2010, 13:15

я дико извиняюсь за свою тупость и невежество!!! а где хранится этот лог???

Это хороший вопрос =)
А где вы тестируете скрипт?
Попробуйте поискать файл error.log в: корневой папке сайта, в папке веб-сервера, просто поиском по файлам =)

две последние строчки из этого файла:
[Mon Feb 08 13:23:48 2010] [error] [client 127.0.0.1] $query: q=jhtgdjgh76756, referer: http://127.0.0.1/menu.html
[Mon Feb 08 13:23:50 2010] [error] [client 127.0.0.1] $query: q=dfgdfg!, referer: http://127.0.0.1/menu.html

чего они значат?

Сравнивая с  можно смотреть, чему равна $query. А вот почему не вывелось ни True, ни False.. Давайте к ним на всякий случай прицепим \n:  и с False то же

warn "True\n"; warn "False\n"; поставил сразу после условия.

вот что выдал error.log
[Mon Feb 08 13:45:34 2010] [error] [client 127.0.0.1] $query: q=jhtgdjgh76756, referer: http://127.0.0.1/menu.html
[Mon Feb 08 13:45:34 2010] [error] [client 127.0.0.1] True, referer: http://127.0.0.1/menu.html
[Mon Feb 08 13:45:34 2010] [error] [client 127.0.0.1] False, referer: http://127.0.0.1/menu.html

Нет уж, надо именно в условии, чтобы различить, warn из которой ветки выдался =)

Кстати, подумалось вот о чем: не могут ли искомые символы быть url-encoded, предстать в форме %22, например?

поставил warn "True\n"; warn "False\n"; внутри веток условия. лог выглядит так:
[Mon Feb 08 13:48:44 2010] [error] [client 127.0.0.1] $query: q=dfgdfg!, referer: http://127.0.0.1/menu.html
[Mon Feb 08 13:48:44 2010] [error] [client 127.0.0.1] False, referer: http://127.0.0.1/menu.html
[Mon Feb 08 13:48:45 2010] [error] [client 127.0.0.1] $query: q=jhtgdjgh76756, referer: http://127.0.0.1/menu.html
[Mon Feb 08 13:48:45 2010] [error] [client 127.0.0.1] False, referer: http://127.0.0.1/menu.html

Добавлено через 1 минуту и 48 секунд


если они url-encoded то что с ними делать? 

А вы вводили строки, которые содержат искомые символы? Попробуйте.

Если url-encoded.. то декодировать =)

Можно переложить эту заботу на CGI, который умеет самостоятельно выковыривать все пришедшие параметры, разбираться с url-encoded и т.п. вещами.

Это сообщение отредактировал(а) JAPH - 8.2.2010, 14:08