0 Пользователей и 1 Гость просматривают эту тему.
my $mess1 = $mess;while ($mess1 =~ s|\\[(\\w)\\]([^\\[\\]]*?)\\[\\/\\1]|$2|g) {};print "Теги не закрыты или ошибка в тэгах" if (($mess1 =~ m|\\[\\w\\]|) || ($mess1 =~ m|\\[\\/\\w\\]|));
Спасибо, а можно как-то это приспособить и для тэгов <*> *>?
my $mess1 = $mess;while ($mess1 =~ s|<(\\S+)>([^<>]*?)<\\/\\1>|$2|g) {};print "Теги не закрыты или ошибка в тэгах" if (($mess1 =~ m|<\\S+>|) || ($mess1 =~ m|<\\/\\S+>|));
Не мог бы ты разъяснить мне этот код?
И ещё, можно ли как-то соделать, чтобы не считались за ошибку не требующие закрытия тэги? (, и тд.)?
Можно, все можно.
Подскажи, как?
Убрать-то их можно, а как потом назад вставлять?