bin/strip-eps

   1 #!/usr/bin/perl -w
   2
   3 # Author: Andy Turner <andrew.turner@acadia.net>
   4
   5 use strict;
   6
   7 # The first line has some binary magic for file identification
   8 # purposes.  GhostScript doesn't like it.  Strip it.
   9 scalar <>;
  10
  11 # Add a header so that we can use magic to determine the file type.
  12 print "%!PS-Adobe-3.0 EPSF-3.0\n";
  13
  14 while (<>) {
  15     print;
  16
  17     # Illustrator Version 7 format EPS files have a bunch of binary gook
  18     # after the "%%EOF" line.  (% is a comment in PostScript, right?)
  19     last if /^%%EOF/;
  20 }