perl - 如何使用 perl (CAM::PDF, PDF::API2) 移动 PDF 页面？

Question

我有一个 PDF 文档，我需要将页面向右移动几英寸。即就像在页面左侧添加边距。

CAM::PDF 或 PDF::API2 可以吗？ 或者有人有这方面的经验吗？

谢谢。

Answer 1

我是 CAM::PDF 的作者。下面的小程序将页面内容右移 100 点。

use CAM::PDF;
my $pdf = CAM::PDF->new('my.pdf');
my $page = $pdf->getPage(1);
$page->{MediaBox}->{value}->[0]->{value} -= 100;
$page->{MediaBox}->{value}->[2]->{value} -= 100;
$pdf->cleanoutput('out.pdf');

我使用了“use Data::Dumper; print Dumper($page);”提醒自己 $page 数据结构。