如何使用CPAN模块生成“嵌入子集”字体PDF :: API2

Question

是否有人知道如何使用生成“嵌入子集”字体PDF :: API2？我不能将它的文​​档中找到任何和所有的尝试似乎确实创造要么只是“嵌入式”与否内嵌字体：

my $pdf = PDF::API2->open('blank.pdf'); 
my $page = $pdf->openpage(1); 
my $txt = $page->text; 
my $font = $pdf->ttfont('verdana.ttf'); 
$txt->textlabel(170, 170, $font, 20, 'text Embeded TTF font'); 

另一个模块文本:: PDF :: TTFont从继承Text :: PDF正确地操作。

谢谢！

Answer 1

我可以创造一个嵌入式子集

#!/usr/bin/perl 
use strict; 
use warnings; 
use lib 'PDF-API2-0.73/lib/'; 


use PDF::API2; 

my $text = "A sample text using Noto TTF"; 

my $pdf = PDF::API2->new(); 
my $page = $pdf->page; 
my $txt = $page->text; 

my $font = $pdf->ttfont('C:/temp/fonts/NotoSans-Bold.ttf');   

$txt->font($font, 25); 
$txt->translate(200, 550); 
$txt->fillcolor('black'); 
$txt->text($text); 

$pdf->saveas("Noto-TTF.pdf");