#!/usr/bin/perl -w
use
strict;
use
Font::FreeType;
die
"Usage: $0 font-filename\n"
unless
@ARGV
== 1;
my
(
$filename
) =
@ARGV
;
my
$face
= Font::FreeType->new->face(
$filename
);
$face
->foreach_char(
sub
{
join
(
"\t"
,
map
{
defined
() ? (
$_
) : () }
$_
->char_code,
$_
->name),
"\n"
;
});
# vi:ts=4 sw=4 expandtab