blob: c81cc48d68eecd6ae888565a8e581540b97d120b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
@rem = '--*-Perl-*--
@echo off
perl -x -S %0 %*
goto endofperl
@rem ';
#!/usr/bin/env perl
#line 8
$^W=1;
@GS_CMD=(-d "/usr/bin")? ("gs"):("gswin32");
die "usage: $0 pdffile [dscfile]\n" unless (@ARGV);
$pdffile=shift @ARGV;
if (@ARGV) {
$dscfile=shift @ARGV;
} else {
($dscfile=$pdffile)=~s/\.pdf$/\.dsc/;
}
push @GS_CMD, qw(-q -dNODISPLAY -dSAFER -dDELAYSAFER);
push @GS_CMD, ("-sPDFname=$pdffile", "-sDSCname=$dscfile");
push @GS_CMD, qw(pdf2dsc.ps -c quit);
exec @GS_CMD or die $!;
__END__
:endofperl
|