home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume35 / psutils / part02 / fixwpps next >
Encoding:
Text File  |  1993-02-04  |  525 b   |  23 lines
  1. #!/usr/local/bin/perl
  2. # fixwpps: get semi-conforming PostScript out of WordPerfect 5.0 file
  3.  
  4. $page = 1;
  5. while (<>) {
  6.    s/(_[a-zA-Z]+)([0-9]+)/\1 \2/g;
  7.    if (/^_bp/) {
  8.       print STDOUT "%%Page: $page $page\n";
  9.       print STDOUT $_;
  10.       $page++;
  11.    } elsif (/^([^\/].*\S.*)(_bp.*)/) {
  12.       print STDOUT "$1\n";
  13.       print STDOUT "%%Page: $page $page\n";
  14.       print STDOUT "$2\n";
  15.       $page++;
  16.    } elsif (/^_ed/) {
  17.       print STDOUT "%%Trailer:\n";
  18.       print STDOUT $_;
  19.    } else {
  20.       print STDOUT $_;
  21.    }
  22. }
  23.