Perl, GhostScript & STDIN, STDOUT

Question

변수의 파일을 ghostscript에 제공하고 HDD 중간 변형에 쓰지 않고 결과를 변수에 게시 할 수 있습니까?

어쩌면 유령이 선으로 호출 할 수있다

:

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;