Question

我使用perl模块PDF::API2::Annotation

为pdf文件添加注释

我在希伯来语中添加它们时遇到了问题。我使用此行将编码设置为utf 8：

my $font = $pdf->corefont('Times-Roman',-encode=>"UTF-8");

但它仍然没有出现在希伯来文中，我使用的是记事本++编辑器，当我选择编辑器编码为UCS-2时，它确实有效。但只有希伯来语部分在代码本身内部。

但我从外部来源获得希伯来语评论（其他人正在运行我的脚本并使用ARGV向其发送参数）。

我尝试使用编码检测，并且我得到了两个变量（我的代码用希伯来语写的那个，以及进入ARGV的那个）都是UTF-8。

但仍然只有我的代码中的一个将以pdf格式显示在希伯来语中。有什么建议吗？

这是使用以下代码的示例：

use PDF::API2;
use PDF::API2::Annotation;
use Encode;
require Encode::Detect::Detector;
use Encode qw(decode encode);

my $pdf = PDF::API2-> open (@ARGV[0])
my $page = $pdf -> openpage(@ARGV[1]);
my $font = $pdf->corefont('Helvetica',-encode=>"UTF-8");
my $locationx = (@ARGV[2]);
my $locationy = (@ARGV[3]);
my $text = (@ARGV[4]);

my $annot = $page -> annotation;
$annot->text($text,-rect => [$locationx,1,1,$locationy]);
$pdf->saveas(@ARGV[5]);

将希伯来语注释添加到pdf文件中

0 个答案: