1

perl + PDF::API2を使用して自分のWebサイトでいくつかのPDFドキュメントを生成したいと思います。

1）pdfテンプレートを読む
2）テンプレートにデータを追加する
3）ファイルをhddに保存する
4）新しいファイルを読む
5）ユーザーのブラウザに印刷する

#!/usr/bin/perl

use strict;
use PDF::API2;

my $p = PDF::API2->open('/way/to/input/pdf.pdf');
my $font = $p->ttfont('/way/to/font.ttf', -encode => 'utf8');
my $page = $p->openpage(1);
my $text = $page->text();
$text->font($font,12);
$text->translate(150,150);
$text->text('Hello world!');
$p->saveas('/way/to/out/pdf.pdf'); #ex: '/usr/local/www/apache22/data/docs'

my $fileContent;
open(my $file, '<', '/way/to/out/pdf.pdf') or die $!;
binmode($file);
{
    local $/;
    $fileContent = <$file>;
}
close($file);

binmode STDOUT;
print "Content-type: application/pdf\n\n";
print $fileContent;
exit;

一時的なPDFを/way/ to / out /フォルダー（r / wアクセス可能）に保存せずにこれを行うにはどうすればよいですか？

4

1 に答える 1

8

PDF::API2のドキュメントを参照してください; 使用しているメソッドを説明した直後に、メソッドのsaveas使用方法を示しますstringify。これにより、必要な処理が実行されます。

$text->text('Hello world!');
binmode STDOUT;
print "Content-type: application/pdf\n\n";
print $p->stringify();
exit;
于 2013-03-26T13:59:46.957 に答える