如何根据字体名称Perl更改PDF格式的字体颜色

Question

我有8到9字体的pdf。我想更改每种字体的字体颜色。 perl是否有任何可能性

代码：

 use PDF::Reuse; 
 use strict; 

 my $n = 1; 
 prFile('1577-2 Provigil P1_out.pdf'); 
 while (1) { 
   prText(550, 40, $n++); 
   prSinglePage('1577-2 Provigil P1.pdf'); 
 }
 prEnd();

Answer 1

我知道这有点太旧了，但我也在寻找这个，并考虑为其他人添加这个。我从this link找到答案，提供了很多很好的例子。

您需要使用prAdd发送直接postscript命令来更改字体颜色。

prAdd("1.0 1.0 1.0 rg");   # white

在使用prText之前使用此功能。 希望这能帮助像我这样的人为这项共同任务找到解决方案。

Answer 2

是的，有可能

阅读here about PDF Processing with Perl开始使用