使用Perl PDF::API2反转PDF颜色时部分页面未完全反转的问题求助

问题根源分析 #

出现部分页面仅半区域反转的情况，通常由以下原因导致：

• 原PDF页面的**裁剪框（CropBox）与媒体框（MediaBox）**不匹配，反转层仅覆盖了媒体框区域，而实际显示区域由裁剪框定义
• 页面存在旋转属性，未修正坐标导致反转层尺寸错位
• 原页面包含透明内容、图层，反转混合模式未正确叠加

具体修复代码与步骤 #

1. 改用裁剪框获取页面实际尺寸 #

替换原脚本中获取页面尺寸的逻辑，使用裁剪框而非媒体框，确保匹配实际显示区域：

my $pdf = PDF::API2->open($input_file);
my $output_pdf = PDF::API2->new();

for my $page_num (1 .. $pdf->pages()) {
    my $page = $pdf->openpage($page_num);
    # 获取裁剪框（实际显示区域）的坐标范围
    my ($x1, $y1, $x2, $y2) = $page->get_cropbox();
    my $width = $x2 - $x1;
    my $height = $y2 - $y1;

    # 处理页面旋转，修正宽高与坐标
    my $rotate = $page->rotate();
    if ($rotate == 90 || $rotate == 270) {
        ($width, $height) = ($height, $width);
        # 根据旋转方向调整坐标映射
        if ($rotate == 90) {
            ($x1, $y1, $x2, $y2) = ($y1, $x1, $y2, $x2);
        } else {
            ($x1, $y1, $x2, $y2) = ($y2, $x2, $y1, $x1);
        }
    }

    # 复制原页面到输出PDF
    my $new_page = $output_pdf->importpage($pdf, $page_num);
    my $gfx = $new_page->gfx();

2. 绘制完整覆盖的反转层 #

确保反转层严格匹配裁剪框的坐标和尺寸，通过差异混合模式实现负片效果：

$gfx->save();
    # 从裁剪框原点开始，绘制覆盖整个实际显示区域的矩形
    $gfx->rect($x1, $y1, $width, $height);
    $gfx->fillcolor('#ffffff');
    $gfx->blendmode('difference');
    $gfx->fill();
    $gfx->restore();
}

$output_pdf->saveas($output_file);

3. 透明内容兼容处理 #

如果原页面存在透明元素，尝试重新导入页面内容流后再添加反转层，避免混合模式失效：

# 替换原复制页面的逻辑，手动构建新页面
my $new_page = $output_pdf->page();
$new_page->mediabox($x1, $y1, $x2, $y2);
$new_page->cropbox($x1, $y1, $x2, $y2);
$new_page->rotate($rotate);

# 导入原页面的内容流
my $content = $page->content();
my $content_gfx = $new_page->gfx();
$content_gfx->add($content);

# 添加反转层
my $gfx = $new_page->gfx();
$gfx->save();
$gfx->rect($x1, $y1, $width, $height);
$gfx->fillcolor('#ffffff');
$gfx->blendmode('difference');
$gfx->fill();
$gfx->restore();

验证步骤 #

1. 用PDF工具（如Adobe Acrobat）检查异常页面的裁剪框与媒体框是否一致
2. 确认页面是否存在旋转属性
3. 测试单个异常PDF，逐步添加修复逻辑验证效果

内容的提问来源于stack exchange，提问作者frah90