我正在运行一个非常简单的脚本，我编写这个脚本是为了获得True Type字体的“高级”。具体的字体是New Times Roman。这是我要回来的那种值，

{
   "A" : 1479
   "a" : 909,
   "B" : 1366,
   "b" : 1024
   "C" : 1366,
   "c" : 909,
   "N" : 1479,
   "n" : 1024,
   "M" : 1821,
   "m" : 1593,
   "." : 512,
}

我正在使用Perl库字体::TTF，你可以在这里找到手册。这是我的脚本，

use strict;
use warnings;
use autodie;
use Font::TTF::Font;

my $f = Font::TTF::Font->open('/usr/share/fonts/truetype/msttcorefonts/Times_New_Roman.ttf')
  || die $!;

my $json = JSON::XS->new->ascii->pretty->allow_nonref;

my @chars = ( '.', '-', 'a'...'z', 'A'...'Z', 0..9 );

my %db;
foreach my $char ( @chars ) {
  my $ord = ord($char);
  my $snum = $f->{'cmap'}->ms_lookup($ord);
  $f->{'hmtx'}->read;
  my $sadv = $f->{'hmtx'}{'advance'}[$snum];
  $db{$char} = $sadv;
}

use JSON::XS qw(encode_json);
print $json->encode( \%db );