In Linux, se hai caratteri .ttf, molto probabilmente hai anche fontconfig , che viene fornito con l' fc.scan
utilità. È possibile analizzare l'output per le informazioni desiderate o utilizzare l' --format
opzione mal documentata .
Per esempio:
fc-scan --format "%{foundry} : %{family}\n" /usr/share/fonts/truetype/msttcorefonts/arialbd.ttf
Le proprietà del carattere che è possibile stampare in questo modo sono mostrate qui: http://www.freedesktop.org/software/fontconfig/fontconfig-user.html#AEN21
Alcune proprietà sono elencate in più lingue. Ad esempio, %{fullname}
potrebbe essere un elenco. In tal caso, %{fullnamelang}
elencherà le lingue. Se questo ti mostra la tua lingua in quarta posizione nell'elenco, puoi usare %{fullname[3]}
come stringa di formato per stampare il nome completo solo in quella lingua.
Dato che questa lingua è piuttosto scomoda, ho finito per scrivere uno script Perl completo per elencare le informazioni che volevo in una sola lingua:
#!/usr/bin/perl
use strict;
my $VERSION=0.1;
my $debug=1;
my @wanted = qw(foundry family fullname style weight slant width spacing file);
my @lang_dependent = qw(family fullname style);
my $lang = "en";
my $separator = ", ";
use File::Basename;
use Data::Dumper; $Data::Dumper::Sortkeys = 1;
my $me = basename $0;
die "Usage: $me FILENAME\n" unless @ARGV;
my $fontfile = shift;
unless (-f $fontfile) {
die "Bad argument: '$fontfile' is not a file !\n";
}
my $fc_format = join( "\\n", map { "\%{$_}" } @wanted );
my @info = `fc-scan --format "$fc_format" "$fontfile"`;
chomp @info;
my %fontinfo;
@fontinfo{@wanted} = @info;
if ( grep /,/, @fontinfo{ @lang_dependent } ) {
my $format = join( "\\n", map { "\%{${_}lang}" } @lang_dependent );
my @langs = `fc-scan --format "$format" "$fontfile"`;
for my $i (0..$#lang_dependent) {
my @lang_list = split /,/, $langs[$i];
my ($pos) = grep { $lang_list[$_] ~~ $lang } 0 .. $#lang_list;
my @vals = split /,/, $fontinfo{$lang_dependent[$i]};
$fontinfo{$lang_dependent[$i]} = $vals[$pos];
}
}
warn Dumper(\%fontinfo), "\n" if $debug;
$fontinfo{'fullname'} ||= $fontinfo{'family'}; # some old fonts don't have a fullname? (WINNT/Fonts/marlett.ttf)
print join($separator, @fontinfo{@wanted}), "\n";
brew install lcdf-typetools