ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/5609.69 09 Apr 2001  22:13:36
 To : Pavel Reich
 Subject : Re: HTML::Parser
 -------------------------------------------------------------------------------- 
 

 Юґullo Pavel!
 
  PR> Дайте плиз рабочий пример следующего: из html файла перевести в текст.
  PR> Hужен имхо как раз сабж. Так же интересует, что возвращает метод
  PR> сабжевого объекта parse и с чем это возвращаемое значение едят.
 
 # ...
 my @text;
 {
   package ParseText;
   @ISA = qw(HTML::Parser);
 
   sub text {
     my $this = shift;
     my ($text) = @_;
     push @text, $text;
   }
 }
 my $parser = ParseText->new;
 # ...
 
 Потом, где надо, @text = (); $parcer->parse_file($file);
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/5609.69 ДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/5609.69)
 
 

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

Тема:    Автор:    Дата:    HTML::Parser   Pavel Reich   09 Apr 2001 21:19:22   Re: HTML::Parser   Alexander Babanov   09 Apr 2001 22:13:36