PDF::Create中文乱码问题

本帖最后由 log2002 于 2010-12-28 14:40 编辑

我用PDF::Create输出为pdf文件，中文是乱码，已经用utf8编码 ，不知道是什么原因？

代码贴出来看看

use strict;
use warnings;
use PDF::Create;

my $pdf = new PDF::Create('filename'                => 'book.pdf',
                                                        'Author'                => 'test',
                                                        'Title'                        => 'test',
                                                        'CreationDate'        => [localtime],
                                                        );
# 添加A4尺寸页
my $a4 = $pdf->new_page('MediaBox'=> $pdf->get_page_size('A4'));

# 添加一页
my $page = $a4->new_page;

# 字体
my $font = $pdf->font('BaseFont' => 'Sans','Encoding'=> 'utf8');
my $dd = "测试";
$dd = encode("utf8",$dd);
Encode::_utf8_on("$dd");
$page->string($font,20,25,680,$dd);

$pdf-close;

exit 1