PDF::API2 で字間が開きすぎる

PerlでPDF::API2を使って、PDF帳簿に文字を入れるスクリプトを書いていたのですが、「テ　　　　　　　ス　　　　　　　ト」のように異常に字間が生まれて挿入されてしまいます。
対処方法をご存じの方おられましたら教えて下さい。

use PDF::API2;
use PDF::API2::Resource::CIDFont::CJKFont;

my $pdf = PDF::API2->open("template6.pdf");
$page = $pdf->openpage();
my $gfx = $page->gfx;
my $gfx2 = $page->gfx;
my $gfx3 = $page->gfx;
my $jfs = $pdf->cjkfont( 'KozGo', -encode=>'shiftjis' );
my $text = "テスト";
$gfx->textlabel(30, 700, $jfs, 10, $text);
$pdf->saveas("new.pdf");

No.1 ベストアンサー 回答者： uwi 回答日時： 2010/01/13 11:47

PDF::API2でそんな風になったことがないのですが、textlabel のオプションで調整できませんか？

$gfx->textlabel(30, 700, $jfs, 10, $text,
-charspace => 4, # 文字間のスペース
-wordspace => 4, # 単語間のスペース
);

他には文字コードを変えると上手くいくかもしれません。

この回答へのお礼

もともとのPDFを差し替えたらきちんと動作するようになりました。

お礼日時：2010/02/09 11:57