home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1082 / fmt.pl
Encoding:
Perl Script  |  1990-12-28  |  410 b   |  31 lines
  1. #!/usr/bin/perl
  2.  
  3. while (<>) {
  4.     if (/^\n$/) {
  5.     &flush if $line;
  6.     print "\n";
  7.     } elsif (/^>/) {
  8.     print;
  9.     } else {
  10.     $line .= $_;
  11.     } 
  12. } 
  13. &flush if $line;
  14. exit 0;
  15.  
  16.  
  17. sub flush {
  18.     $_ = $line;
  19.     $line = '';
  20.     s/^\s+//;
  21.     s/\s+$//;
  22.     s/\s+/ /g;
  23.     s/(\w)- /$1/g;    # unhyphenate
  24.     write;
  25. } 
  26.  
  27. format STDOUT =
  28. ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
  29. $_
  30. .
  31.