更改 PDF::TextBlock Perl 上的字体大小

Question

努力使用 PDF::TextBlock 设置文本块的字体大小。

use PDF::TextBlock;
my $tb  = PDF::TextBlock->new({
    pdf       => $pdf,
    page      => $page,
    x            => 20,
    y            => 200,
    w            => 550,
    fonts     => {
       b => PDF::TextBlock::Font->new({
       pdf  => $pdf,
       font => $pdf->corefont( 'Helvetica-Bold', -encoding => 'latin1' ),
     }),
   },
 });

把尺码放在哪里？试过size=>4，size=>'4/pt'，fontsize=>4。文档中没有关于此的内容。有什么想法吗？

Answer 1

这对我有用（将b 更改为default 并添加size 参数）：

my $tb  = PDF::TextBlock->new({
    pdf       => $pdf,
    page      => $page,
    x         => 20,
    y         => 200,
    w         => 550,
    fonts     => {
      default => PDF::TextBlock::Font->new({
        pdf  => $pdf,
        font => $pdf->corefont( 'Helvetica-Bold', -encoding => 'latin1' ),
        size => 24,
      }),
    },
 });

$tb->text('Hello');