home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / TEKST / PSUTILS / FIXWWPS.PL < prev    next >
Perl Script  |  1993-10-27  |  364b  |  21 lines
  1. #!@PERL@
  2. # fixwwps: get semi-conforming PostScript out of Windows Write file
  3.  
  4. # feed this into perl
  5. eval 'exec perl -S $0 "$@"'
  6.    if $running_under_some_shell;
  7.  
  8. $page = 1;
  9.  
  10. while (<>) {
  11.    if (/^(%!.*) EPSF-\d.\d/) {
  12.       print $1, "\n";
  13.    } elsif (/^SS/) {
  14.       print "%%Page: $page $page\n";
  15.       print $_;
  16.       $page++;
  17.    } else {
  18.       print $_;
  19.    }
  20. }
  21.