Commit | Line | Data |
---|---|---|
168e428f PH |
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 |