使用 Perl PDF::API2 反转 PDF colors（负）

Question

就像标题一样，我正在尝试编写一个脚本，通过使用 Perl 和 PDF::API2 来反转一堆 PDF 的 colors。 我对 perl 不是很熟悉，我在 chatGPT 的帮助下修改了我在 stackoverflow 上找到的一个简短脚本，来自这篇文章

如何将 PDF 中的所有颜色更改为各自的互补色； 如何使 PDF 为负数

我来到的代码如下：

use strict;
use warnings;
use PDF::API2;
use PDF::API2::Basic::PDF::Utils;

my $dirname = '.';
my $filename;
opendir(DIR, $dirname) or die "Could not open $dirname\n";

mkdir("inverted") unless -d "inverted";

while ($filename = readdir(DIR)) {
  print("$filename\n");
  next unless $filename =~ /\.pdf$/; # Skip files that are not PDFs
  my $pdf = PDF::API2->open($filename);

  for my $n (1..$pdf->pages()) {
    my $p = $pdf->openpage($n);

    $p->{Group} = PDFDict();
    $p->{Group}->{CS} = PDFName('DeviceRGB');
    $p->{Group}->{S} = PDFName('Transparency');

    my $gfx = $p->gfx(1);  # prepend
    $gfx->fillcolor('white');
    $gfx->rect($p->mediabox());
    $gfx->fill();

    $gfx = $p->gfx();  # append
    $gfx->egstate($pdf->egstate->blendmode('Difference'));
    $gfx->fillcolor('white');
    $gfx->rect($p->mediabox());
    $gfx->fill();
  }
  $pdf->saveas("inverted/$filename");
}

closedir(DIR);

有时它似乎部分工作，一些页面被正确反转； 然而有时页面的前半部分没有反转，它仍然是白色的，就像这张照片：

页面部分反转

我想解决这个问题，我真的需要一个简单的脚本来执行这项工作，我还编写了一个脚本，之后将多个文件中的所有 pdf 文件连接到一个 PDF 中。如果有人有想法如何修复它我将不胜感激，如果有人需要这个，我也可以将结果上传到 github（其他时候也有人问过这个问题，但我没有找到脚本，也没有在 python 或其他执行此操作的语言中找到运行良好，除了一些依赖 docker 和 nodejs 来安装它们的脚本）

• 我试过使用 chatGPT 来解决这个问题，但它不知道如何做到这一点（是的，我知道，我不应该依赖它，但这是我第一次使用 Perl）

Answer 1

我正在调试它并且确信它与页面旋转有关，但我还不了解问题的详细信息。 但是，我对测试文件有这个解决方法：

• 使用pdftk将其旋转 90 度，然后应用 perl 脚本，然后使用 pdftk 将其旋转回 90 度：

   $ pdftk test.pdf cat 1-endLeft output test2.pdf $ # run perl script to invert the colors in test2.pdf $ pdftk test2.pdf cat 1-endRight output test3.pdf

经过这次测试， test3.pdf似乎被正确反转了。 此解决方法也适用于您拥有的其他文件。