home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume35 / psutils / part04 / fixwfwps < prev    next >
Text File  |  1993-02-04  |  261b  |  12 lines
  1. #!/usr/local/bin/perl
  2. # fixwfwps: fix Word for windows PostScript for printing.
  3.  
  4. while (<>) {
  5.    tr/\000-\011\013-\037//d;
  6.    if (/^(%!PS-Adobe-[0-9]*\.[0-9]*) EPSF-/) {
  7.       print STDOUT "$1\n";
  8.    } elsif (! /^%%BoundingBox/) {
  9.       print STDOUT $_;
  10.    }
  11. }
  12.