home *** CD-ROM | disk | FTP | other *** search
/ Big Green CD 8 / BGCD_8_Dev.iso / NEXTSTEP / UNIX / Educational / R-0.49-MI / R-0.49-I / mansrc / help / help.pretty.perl < prev    next >
Encoding:
Text File  |  1996-11-24  |  196 b   |  11 lines
  1. #!/usr/bin/perl -w
  2. #
  3. ## Replace multiple empty lines by single empty lines
  4. ## -- but still leave ONE EMPTY !!
  5.  
  6. $/="\n\n"; # input  record separator
  7. Para:
  8.  while (<>) {
  9.  print $_ unless /^\n\n$/
  10. }
  11.