diff options
| -rwxr-xr-x | psresize2.pl | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/psresize2.pl b/psresize2.pl index b0e6748..8045771 100755 --- a/psresize2.pl +++ b/psresize2.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -w -use Getopt::Long qw(:config no_ignore_case bundling); +use Getopt::Long qw(:config posix_default no_ignore_case bundling); use Pod::Usage; use IPC::Open2; use IPC::Open3; @@ -29,59 +29,59 @@ Conventions. =over 8 -=item B<-w,--width> +=item B<-w, --width> Specify the width of the output file. If the height is not specified as well, it will be ignored. The known units are B<pt>, B<in>, B<cm> and B<mm>. The default unit is B<pt>. -=item B<-h,--height> +=item B<-h, --height> Specify the height of the output file. If the width is not specified as well, it will be ignored. The known units are B<pt>, B<in>, B<cm> and B<mm>. The default unit is B<pt>. -=item B<-p,--paper> +=item B<-p, --paper> Specify the paper size of the output file, as an alternative to B<-w> and B<-h>. Can be set to B<a0>, B<a1>, B<a2>, B<a3>, B<a4>, B<a5>, B<b5>, B<letter>, B<legal>, B<tabloid>, B<statement>, B<executive>, B<folio>, B<quarto>, or B<10x14>. The default output paper size is B<a4>. -=item B<-W,--Width> +=item B<-W, --Width> Same as the option B<-w>, but for the input file. -=item B<-H,--Height> +=item B<-H, --Height> Same as the option B<-h>, but for the input file. -=item B<-P,--paper> +=item B<-P, --paper> Same as the option B<-p>, but for the input file. By default, I<PSResize2> will try to guess this value from the header of the file, and fail if the information is missing. This option is useless if the crop option (B<-c>) is set. -=item B<-r,rotdir> +=item B<-r, --rotdir> If the file has to be rotated, this option determines the direction of the rotation. Can be set to B<L>, B<left>, B<R>, or B<right>. The default direction is B<L>. -=item B<-m,--margin> +=item B<-m, --margin> Add a margin to the output file. Possible units are B<pt>, B<in>, B<cm> and B<mm>. The default unit is B<pt>. The default margin is B<1cm> if the crop option (B<-c>) is set, and B<0> otherwise. -=item B<-c,--crop> +=item B<-c, --crop> If this option is set, I<PSResize2> will interpret the PostScript code to calculate the maximal effective bounding box. This operation may be quite demanding for the CPU. -=item B<-q,--quiet> +=item B<-q, --quiet> I<PSResize2> normally prints the page numbers of the pages output; this option suppresses this. @@ -190,7 +190,7 @@ if (defined $infile && $infile ne "-") { # TODO: no need to such an ugly auxiliary file? - $infile = "$tmpdir/psresize-stdin-" . int(rand 2**16) . "ps"; + $infile = "$tmpdir/psresize-stdin-" . int(rand 2**16) . ".ps"; open FIN2, '>', "$infile" or die "Can't write into `$infile': $!"; @@ -484,7 +484,7 @@ sub papersize { # -# Print a command just like you'd do it in a shell +# Print a command just like you'd do in a shell # sub printcmd { my @cmd; |