Отправлено: Отец Никон от 08 Января 2003, 21:29:03
У меня такая задача: есть форум. И при отсылке сообщения
надо проверить, закрыты ли в нем все тэги.
Подскажите, пожалуйста, как
Отправлено: Chs от 08 Января 2003, 22:32:35
Теги какого вида?
Если [ x ] [ / x ], то примерно так
Код: [Выделить]
my $mess1 = $mess;
while ($mess1 =~ s|\\[(\\w)\\]([^\\[\\]]*?)\\[\\/\\1]|$2|g) {};
print "Теги не закрыты или ошибка в тэгах"
if (($mess1 =~ m|\\[\\w\\]|) || ($mess1 =~ m|\\[\\/\\w\\]|));
Отправлено: Отец Никон от 09 Января 2003, 01:19:36
Извиняюсь, но я в рег. выр-я никак пока не въеду.
Отправлено: Chs от 09 Января 2003, 09:11:23
Цитировать
Спасибо, а можно как-то это приспособить и для тэгов <*> ?
Код: [Выделить]
my $mess1 = $mess;
while ($mess1 =~ s|<(\\S+)>([^<>]*?)<\\/\\1>|$2|g) {};
print "Теги не закрыты или ошибка в тэгах"
if (($mess1 =~ m|<\\S+>|) || ($mess1 =~ m|<\\/\\S+>|));
+
perldoc perlre :)
Отправлено: Отец Никон от 09 Января 2003, 11:55:21
Не мог бы ты разъяснить мне этот код? Я все-таки стараюсь сам врубаться, а не использовать шаблоны.
И ещё, можно ли как-то соделать, чтобы не считались за ошибку не требующие закрытия тэги? (
и тд.)?
Отправлено: Chs от 09 Января 2003, 12:00:31
Цитировать
Не мог бы ты разъяснить мне этот код?
А что непонятного?
Цитировать
И ещё, можно ли как-то соделать, чтобы не считались за ошибку не требующие закрытия тэги? (,
и тд.)?
Можно, все можно.:)
Отправлено: Отец Никон от 10 Января 2003, 10:53:25
Цитировать
Можно, все можно.
Подскажи, как?
Отправлено: Chs от 10 Января 2003, 11:04:21
Цитировать
Подскажи, как?
Убрать их в начале проверки.
Отправлено: Отец Никон от 10 Января 2003, 11:26:31
Отправлено: Chs от 10 Января 2003, 11:41:45
Цитировать
Убрать-то их можно, а как потом назад вставлять?
А зачем вставлять? Проще сообщение скопировать и провести деструктивную проверку.