The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

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