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

Question

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

as.POSIXlt(strptime(test_time,format = "%Y-%m-%d %H:%M:%OS"), format = "%Y-%m-%d %H:%M:%OS")

尺码放在哪里？试过 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');