Привет!
Написал гостевую, всё работает на ура. Но возникла такая проблема.
Запускаю скрипт и ввожу такое сообщение:
Hi! My name is Dennis. ;)

После отправки получаю такое сообщение:
Unmatched ) in regex; marked by <-- HERE in m/Hi! My name is Dennis. ;)<-- HERE / at z:\home\LOCALH~1\cgi-bin\rst\gb\gb.pl line 63, <GB> line 1

Вот часть кода где всплывает ошибка:

Код

61:  open( GB, "< $file" ) or die $!; 62:      while ( <GB> ) { 63:        if ( m/$mess/ ) { 64:          push(@errors, "Такое сообщение уже есть в базе. Не стоит повторяться."); 65:          last; 66:        } 67:      } 68:  close( GB ) or die "$!";

Нуменрация строк приведена так как в программе.
$mess - полученное сообщение из формы.

Впринципе ошибка ясна, но проблема с её решением, я с такой ошибкой столкнулся впервые. Помоему как-то нужно заключить в кавычки с помощью qr() переменную $mess. Попробовал, не получилось.

Заранее спасибо,
Денис

Это сообщение отредактировал(а) korob2001 - 18.6.2004, 17:21

korob2001
я такую проблему решал просто экранируя все спец символы: $@.[]{}()\/
Т.е. добавляю /
Добавлено @ 17:44
Дело в том, что /$m/ - подставляет символы в // и например если у тебя $m=".*" то /$m/ всегда будет верным.

Secandr
Что ты подразумеваешь под словом экранирование? Если это перекрытие специальных символов обратым слэшем, то они ведь тоже пропишутся в файл, что не желательно. Хотя можно удалить их после проверки или содать, временную, копию переменной $mess. Сверять копию а в файл прописать оригинал, если условие выполнено.
Всё же мне что-то подсказывает что можно найти более оптимальный вариант.
Что думаешь?

Цитата

Дело в том, что /$m/ - подставляет символы в // и например если у тебя $m=".*" то /$m/ всегда будет верным.

Да, я знаю, что регулярное выражение вида m/.*/ всегда истенна, даже если строка будет пустой. Но в моём случае она не будет пустой. Так как проверка на заполнение происходит чуть раньше. Если поле пустое, то программа завершается и просит заполнить поля. Код написанный выше не позволяет ввести, случайно, сообщение 2 раза подряд.

а зачем здесь использовать РВ ?
что нельзя просто сравнить строки ?
if ($mess eq $_ ) {
..

korob2001
Я делал временую копию строки, экранировал, проверял и удалял копию. Хотя задача была немного другая.

Цитата

а зачем здесь использовать РВ ? что нельзя просто сравнить строки ? if ($mess eq $_ ) { ..

Каждая строка в файле примерно такого вида:
Имя=email=сообщение=время добавления\n

Получается сначала нужно разбить строку split'ом, тогда можно будет сравнить строки. Но при таком раскладе мне кажется что производительность будет не высокая.

Цитата

Я делал временую копию строки, экранировал, проверял и удалял копию. Хотя задача была немного другая.

Я тоже так сделал, вроде работает нормально.

Спасибо за помощь.

Это сообщение отредактировал(а) korob2001 - 19.6.2004, 17:04