Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {
- "A" : 1479
- "a" : 909,
- "B" : 1366,
- "b" : 1024
- "C" : 1366,
- "c" : 909,
- "N" : 1479,
- "n" : 1024,
- "M" : 1821,
- "m" : 1593,
- "." : 512,
- }
- 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 );
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement