|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Sergey Smagin 2:5054/60 20 Jan 2001 01:11:27 To : Sukhov Vladimir Subject : СОС -------------------------------------------------------------------------------- 16 Янв 01 16:51, Sukhov Vladimir wrote to All: SV> Есть вот проблемка, требуется вырвать слова, находящиеся в тегах: SV> </font></td><td><font face="Arial" SV> size="-1"><b>ЧТО-то_что_выдрать</b></font></td></tr> SV> пишу типо: подскажите что не так или как чего?-) заранее SV> благодарен... Убивай теги, оставляя слова: Perl Cookbook 20.6. Extracting or Removing HTML Tags Problem You want to remove HTML tags from a string, leaving just plain text. Solution The following oft-cited solution is simple but wrong on all but the most trivial HTML: ($plain_text = $html_text) =~ s/<[^>]*>//gs; #WRONG A correct but slower and slightly more complicated way is to use the CPAN modules: use HTML::Parse; use HTML::FormatText; $plain_text = HTML::FormatText->new->format(parse_html($html_text)) Sergey --- Only for your ears: Радио Maximum * 103200000Hz * Origin: Я в фидо прожил где-то 0,771 килодень (2:5054/60) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/18243a6891a4.html, оценка из 5, голосов 10
|