1

PDFファイル内のトークンの単純な検索と置換だと思ったことをやろうとしています。

私はこのpdfファイルを持っています: http://servera.service.com/LABELS.pdf

この単純な perl スクリプトを CAM::PDF で使用して、ページ コンテンツを取得し、単純な検索を行い、トークンを置き換えます。

$pdf = CAM::PDF->new('LABELS.pdf');

$page = $pdf->getPageContent(1);

$page =~ s/\\045\\045Carrier_Tracking_Number\\045\\045/ABE1234567890/;

$pdf->setPageContent(1, $page);

$pdf->cleanoutput('after.pdf');

exit;

私が得るものはhttp://servera.service.com/after.pdfです

ページのコンテンツをダンプすると、これが置換前のものです

http://servera.service.com/before.txt

そして、これは私が置換後に持っているものです

http://servera.service.com/after.txt

明らかに、非常に単純なものが欠けています。

4

1 に答える 1