scripts/vnexpress.pl

   1 #!/usr/bin/perl
   2
   3 while (<>) {
   4 =comment
   5     chop;
   6     chop;
   7     $start = 1 if m,^<td>$,;
   8     $start = 0 if m,^</td>$,;
   9     $text .= "$_\n" if $start == 1;
  10 =cut
  11     chop;chop;$text .= "$_ ";
  12 }
  13 $text =~ s,.*<P class=Title>,,i;
  14 $start = 1;
  15 while ($text =~ m,([^<]*)<([^>]*)>,gi) {
  16     $oldstart = $start;
  17     $content = $1;
  18     $tag = $2;
  19     if ($tag eq "/P") {
  20         $start = 0;
  21         print "\n";
  22     }
  23     $start = 1 if $tag =~ m/^P class/i;
  24     print "$content<${tag}>" if $oldstart == 1;
  25 #    print "= $tag\n";
  26 }
  27