diff options
Diffstat (limited to 'fontstats.pl')
| -rwxr-xr-x | fontstats.pl | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/fontstats.pl b/fontstats.pl index 1237a97..123de36 100755 --- a/fontstats.pl +++ b/fontstats.pl @@ -112,21 +112,23 @@ foreach my $x (@langs) { # Geneate INI files # (standard summary) foreach my $lang (sort(@langs)) { - print "[$lang]\n"; + $lang =~ /(.*)\.lang/; + print "[$1]\n"; foreach my $font (sort(@fonts)) { my $coverage = calccoverage($lang, $font); - print " $font = $coverage\n"; + $font =~/(.*).bdf/; + printf " $1 = %1.6f\n", $coverage; } } # (missing) -foreach my $lang (sort(@langs)) { - print "[missing|$lang]\n"; - foreach my $font (sort(@fonts)) { - my $str = ""; - foreach my $missing (keys(%{$missing{$font}{$lang}})) { - $str .= "'$missing' (u+".ord($missing).") "; - } - print " $font = $str\n" if ($str); - } -} +#foreach my $lang (sort(@langs)) { +# print "[missing|$lang]\n"; +# foreach my $font (sort(@fonts)) { +# my $str = ""; +# foreach my $missing (keys(%{$missing{$font}{$lang}})) { +# $str .= "'$missing' (u+".ord($missing).") "; +# } +# print " $font = $str\n" if ($str); +# } +#} |