websoft/bin/ps2pdf

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 if ($ARGV[0]) { open(IN, "<$ARGV[0]") or die($!); }
   7 else { *IN = *STDIN; }
   8
   9 open(PROG, "| gs -dSAFER -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=- -c .setpdfwrite -f -") or die($!);
  10 while (<IN>) { print PROG $_; }
  11 close(IN);
  12 close(PROG);