Как изменить цвет шрифта в PDF на основе имени шрифта Perl

Question

У меня есть PDF с шрифтом от 8 до 9.Я хочу изменить цвет шрифта для каждого шрифта.Есть ли какие-нибудь возможности в 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

Я знаю, что это слишком устарело, но я тоже искал это и думал добавить это ради других. Я нашел ответ от по этой ссылке , которая дает много хороших примеров.

Вам необходимо использовать prAdd для отправки прямых команд postscript для изменения цвета шрифта.

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

Используйте это, прежде чем использовать prText. Надеюсь, что это поможет другим, таким как я, найти решение для этой общей задачи.

Answer 2

Да, возможно

Читать здесь о работе с PDF с помощью Perl , чтобы начать