Вот быстрый Perl-скрипт для этого с использованием модуля Font::FreeType
:
#!/usr/bin/perl -w
use strict;
use Font::FreeType;
for my $file (@ARGV) {
printf "%s is %s\n", $file, Font::FreeType->new->face($file)->is_italic
? 'italic' : 'not italic';
}
Возможно, вы можете использовать другой язык, если у него есть расширение для использования FreeType.