Как надежно удалить <хтмл-теги> из тескта

[cyberg]

а где прочитать про HTML::Parser

[lodevar]

http://www.eugene.dp.ua/Superadmin/perl/chapter20/20_1.htm#206

З.Ы. Это перепечатка Perl Cookbook (c) O\'RELLY

Так что: "покупайте книги товарищи. Книга - лучший друг человека" (чей-то лозунг).

Да я не про то! Я про то, что если тег начался, то в нем не могут использоваться ">", кроме как для закрытия! Поэтому проверка на пробел излишняя...

Интересное мнение а как насчет такого >> Пупкина\'> В ALT все будет показываться как надо с ->>>, короче ВОПРОС ТОТ ЖЕ ?

как я понял Парсер для собственного сервера, а у меня хостинг на кудыкиной горе и ни как я его туды не закину, если не прав поясните плиз потому как я пронего читал но мой хостинг его не поддерживает

а как Вам например тотже вариант с IMG но при этом тег разделен на две или три строки
src=\'Пупкин.gif\'
 alt=\'проблемы ->>> Пупкина\'>  А .....?

[Haze]

Тогда используй модуль... На самом деле проблем может быть очень много, но в данном случае:

s/<[A-za-z]([^\'">]*[\'"][^\'"]*?[\'"])*[^>]*>//sig

Это, конечно, сплошное извращение, а не выражение , оптимизировать надо, да и опять же что-нибудь пропустит Думать надо долго и мучительно, а это такое неблагодарное занятие...

После удаления ХТМЛов остается туча пустых строк, надобно их схлопнуть в одну

[lodevar]

а у меня хостинг на кудыкиной горе и ни как я его туды не закину

хостера в студию...

Казахский вариант

$mail="f:/mail.html";
open (OUT, "<$mail");
$sort="f:/txt.txt";
open (IN, ">$sort");

undef ($/);
$_=;

$_=~s/\\<+?style.+?\\<+?\\/style\\+?>//isg;# смерть теблицам стилий Если я павелно это понимю
$_=~s/\\<+?SCRIPT.+?\\<+?\\/SCRIPT+?\\>//isg;# смерть скриптам
$_=~s/\\<+?.+?\\>+?//sg;#теги выкусывает любые однозначно С комментарияме правде есть пролема
$_=~s/(\\s+\\n\\n)//sg;#находит и убивает много лишних переводов строки НЕ ВСЕ

print IN $_;

Осталась одно только проблема на мой взгляд
вот из такой строки
остоётся "-->"

Если ктото заметит что скрипт работает криво высылайте пожалысто код который скрипт ненашол
добавим пофиксим исправим

ююю

Казахский вариант  

Блин опять закривулил Устал навегное нуно спать

$_=~s/\\<+?style.+?\\<+?\\/style.+?\\>//isg;# смерть  теблицам стилий
$_=~s/\\<+?SCRIPT.+?\\<+?\\/SCRIPT.+?\\>//isg;# смерть скриптам
$_=~s/\\<+?.+?\\>+?//sg;#теги выкусывает любые однозначно С комментарияме правде есть пролема
$_=~s/(\\s+\\n\\n)//sg;

ююю

$value =~ s/\\ $value =~ s/\\>/>/gi;

[Green Kakadu]

$value =~ s/\\$value =~ s/\\>/>/gi;

типа круто. только не по теме немножко...