doc/doc-docbook/Tidytxt

   1 #! /usr/bin/perl
   2
   3 # $Cambridge: exim/doc/doc-docbook/Tidytxt,v 1.1 2005/06/16 10:32:31 ph10 Exp $
   4
   5 # Script to tidy up the output of w3m when it makes a text file. We convert
   6 # sequences of blank lines into a single blank line.
   7
   8 $blanks = 0;
   9 while (<>)
  10   {
  11   if (/^\s*$/)
  12     {
  13     $blanks++;
  14     next;
  15     }
  16   print "\n" if $blanks > 0;
  17   $blanks = 0;
  18   print;
  19   }
  20
  21 # End