0

編集：

私は再び質問を変更しました：

このライブラリを使用して PDF ファイルを操作しています。

このコードを使用して、出力をブラウザーに提供しています。

#!perl
use strict;
use warnings;

use lib "..\\mymodules\\CAM-PDF-1.57\\lib";

use CAM::PDF;
my $pdf = CAM::PDF->new('doc1.pdf');

# append the other file
my $anotherpdf = CAM::PDF->new('doc2.pdf');

$pdf->appendPDF($anotherpdf);

print "Content-Type: application/pdf\n";
print "Content-Disposition: inline\n\n";

print "Content-Transfer-Encoding: binary\n";
print "Accept-Ranges: bytes\n\n";

$pdf->output();

結果：

ブラウザーにロードされた最初の pdf ファイルのみを取得します。

問題が解決しました：

コマンド$pdf->clean();の前に追加する必要がありましたが、完璧に機能します。$pdf->output();:)

4

1 に答える 1

0

TEMP変数はないと言いましたが、それを使用するコードは次のとおりです。

$pdf->cleanoutput($ENV{"TEMP"} . '\\out1.pdf');

ある値に設定してみてください（ウィンドウを使用していると思います）

$ENV{'TEMP'}='c:\tmp';
mkdir($ENV{'TEMP'});
die "$ENV{'TEMP'} not exists" if ! -d $ENV{'TEMP'};
$pdf->cleanoutput($ENV{"TEMP"} . '\\out1.pdf');

なぜ//をパスで使用しているのですか？例：lib ".. \ mymodules \ CAM-PDF-1.57\lib"を使用します。使用中のlibステートメントは常にフルパスを使用します。

于 2012-03-13T07:33:56.240 に答える