ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     30 Jul 2002  14:42:46
 To : Rostislav Podgornyi
 Subject : Re: HTML::Parser
 -------------------------------------------------------------------------------- 
 

 Rostislav Podgornyi wrote:
 
 > ю Привет, All!
 > 
 >   Хоть убей не могу с помощью сабжа убить html-теги.
 >   Что-то не могу выкупить как его юзать.\.. :((
 >   Помогите :)
 
 Hапример
 
 my $tree = HTML::TreeBuilder->new->parse_file($filename);
 my $formatter = HTML::FormatText->new();
 my $text = $formatter->format($tree);
 
 $tree->delete;
 
 Можно и по другому, прямо из документации (которую стоит читать, там
 например написано что такое $is_cdata ):
 
 #!perl -w
 use strict;
 
 package MyParser;
       use base 'HTML::Parser';
       sub text {
           my($self, $origtext, $is_cdata) = @_;
           print $origtext;
       }
 
 package main;
 
    my $filename=shift;
    my $p = MyParser->new;
 
    $p->parse_file($filename);
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    HTML::Parser   Rostislav Podgornyi   30 Jul 2002 09:27:33   Re: HTML::Parser   Konstantin Tokar   30 Jul 2002 14:42:46