Perl、GhostScript 和标准输入、标准输出

Question

如何在不写入 HDD 中间变量的情况下将来自变量的文件提供给 ghostscript 并将结果发布回变量。

这行可能会调用ghost：

gs -q -dBATCH -dNOPAUSE -sDEVICE=pdfwrite -sOutputFile=%stdout -

Answer 1

use GSAPI qw();
use IO::CaptureOutput qw(capture);

my $pdf;
capture {
    my $handle = GSAPI::new_instance;
    GSAPI::init_with_args($handle, 'TITAN', qw(-dBATCH -dNOPAUSE -dQUIET -dSAFER -sDEVICE=pdfwrite -sOutputFile=-));
    GSAPI::run_string($handle, 'newpath 100 200 moveto 200 250 lineto 100 300 lineto closepath gsave 0.5 setgray fill grestore 4 setlinewidth 0.75 setgray stroke showpage');
    GSAPI::exit($handle);
} \$pdf;