test whether a font contains a glyph for a specified unicode character

glyphs_in_font.pl

#!/usr/bin/perl
# Reading fields from standard input, omit lines which contain
# a character which is absent in the specified font
# Make sure perl is invoked correctly (see PERL_UNICODE)

use Font::TTF::Font;

my $fontPath = "/usr/share/fonts/Adobe/AdobeKaitiStd.otf";

my $font = Font::TTF::Font->open($fontPath);

while(<>) {
	($cjCode, $utf8) = split(" ");
	print if $font->{cmap}->ms_lookup(unpack('U', $utf8));
}