ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael Savin                        2:5070/269     24 Oct 2001  01:35:10
 To : all
 Subject : HTML -> Text
 -------------------------------------------------------------------------------- 
 

 
 Гм. Разобрался. Может кому полезно будет:
 
 use HTML::FormatText;
 use HTML::Parser;
 use HTML::TreeBuilder;
 
 $formatter = HTML::FormatText->new(leftmargin => 0, rightmargin =>77);
 
 foreach $file (<*.htm>) {
         $outfile=(split(/\./,$file))[0] . ".txt";
         open FILE,">$outfile";
 
         $html = HTML::TreeBuilder->new();
         $html->parse_file($file);
         $text = $formatter->format($html);
         $html::DESTROY;
 
         print FILE $text;
         print "File $file parsed.\n";
         close FILE;
 }
 
 #sunshine on the grave#
 --- asmъmetallicaъadomъforest sysops
  * Origin: depression feeling (2:5070/269)
 
 

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