Perl的PDF :: API2和Unicode

Question

我想寫一個unicode字符串到PDF :: API2的對象，但我不工作，我得到的Unicode字符搞砸

our $pageWidth = 1.25*595; 
our $pageHeight = 1.25*842; 

my $titleSize = 16; 

my $pdf = PDF::API2->new(); 
$pdf->mediabox((0, 0, $pageWidth, $pageHeight)); 

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

my $page = $pdf->page(); 
my $text = $page->gfx(); 

$text->font($font, $titleSize); 

my $title = '(Nėra pavadinimo šiam puslapiui)'; 
my $titleWidth = $text->advancewidth($title); 

$text->translate(($pageWidth - $titleWidth)/2, $pageHeight - $titleSize * 2); 
$text->text($title); 
my $pdfString = $pdf->stringify(); 

我得到(N ra pavadinimo �iam puslapiui)。 什麼我做錯了

Answer 1

通過以下source