mirror of https://github.com/MidnightCommander/mc
31 lines
709 B
Perl
31 lines
709 B
Perl
|
#! /usr/bin/env perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my $first = 1;
|
||
|
|
|
||
|
|
foreach my $f (@ARGV) {
|
||
|
|
my ($lang, $translated, $fuzzy, $untranslated) = (undef, 0, 0, 0);
|
||
|
|
|
||
|
|
# statistics are printed on stderr, as well as error messages.
|
||
|
|
my $stat = `msgfmt --statistics "$f" 2>&1`;
|
||
|
|
($lang = $f) =~ s,\.po$,,;
|
||
|
|
if ($stat =~ qr"(\d+)\s+translated") {
|
||
|
|
$translated = $1;
|
||
|
|
}
|
||
|
|
if ($stat =~ qr"(\d+)\s+fuzzy") {
|
||
|
|
$fuzzy = $1;
|
||
|
|
}
|
||
|
|
if ($stat =~ qr"(\d+)\s+untranslated") {
|
||
|
|
$untranslated = $1;
|
||
|
|
}
|
||
|
|
if ($first) {
|
||
|
|
printf("%8s %10s %5s %12s\n",
|
||
|
|
"language", "translated", "fuzzy", "untranslated");
|
||
|
|
printf("%s\n", "-" x 43);
|
||
|
|
$first = 0;
|
||
|
|
}
|
||
|
|
printf("%8s %10d %5d %12d\n",
|
||
|
|
$lang, $translated, $fuzzy, $untranslated);
|
||
|
|
}
|