Perl, GhostScript & STDIN, STDOUT

Question

Как я могу передать ghostscript файлом из переменной и опубликовать результат обратно в переменную без записи в промежуточные варианты жесткого диска.

возможно, вызову нужно вызвать эту строку:

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;