clean-nroff.pl - enscript - GNU Enscript
 (HTM) git clone git://thinkerwim.org/enscript.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       clean-nroff.pl (497B)
       ---
            1 #!/usr/local/bin/perl -w
            2 
            3 sub skip_lines {
            4     ($count) = @_;
            5 
            6     while ($count > 0) {
            7         if (!<>) {
            8             last;
            9         }
           10         $count--;
           11    }
           12     if ($count > 0) {
           13         return 0;
           14     }
           15     return 1;
           16 }
           17 
           18 sub print_lines {
           19     ($count) = @_;
           20 
           21     while ($count > 0)  {
           22         $line = <>;
           23         if (!$line) {
           24             last;
           25         }
           26         print $line;
           27         $count--;
           28     }
           29 
           30     if ($count > 0) {
           31         return 0;
           32     }
           33     return 1;
           34 }
           35 
           36 # Header.
           37 print_lines(7);
           38 
           39 # Process file.
           40 while (1) {
           41     if (!print_lines(52) || !skip_lines(14)) {
           42         last;
           43     }
           44 }