~ubuntu-branches/ubuntu/lucid/mc/lucid

« back to all changes in this revision

Viewing changes to po/statistics.pl

• browse files at revision 4
• compare with another revision
• download diff
• download tarball
• view history from revision 4

Show diffs side-by-side

added

removed

po/statistics.pl

 

1

#! /usr/bin/env perl

 

2

use strict;

 

3

use warnings;

 

4

 

 

5

my $first = 1;

 

6

 

 

7

foreach my $f (@ARGV) {

 

8

        my ($lang, $translated, $fuzzy, $untranslated) = (undef, 0, 0, 0);

 

9

 

 

10

        # statistics are printed on stderr, as well as error messages.

 

11

        my $stat = `msgfmt --statistics "$f" 2>&1`;

 

12

        ($lang = $f) =~ s,\.po$,,;

 

13

        if ($stat =~ qr"(\d+)\s+translated") {

 

14

                $translated = $1;

 

15

        }

 

16

        if ($stat =~ qr"(\d+)\s+fuzzy") {

 

17

                $fuzzy = $1;

 

18

        }

 

19

        if ($stat =~ qr"(\d+)\s+untranslated") {

 

20

                $untranslated = $1;

 

21

        }

 

22

        if ($first) {

 

23

                printf("%8s  %10s  %5s  %12s\n",

 

24

                        "language", "translated", "fuzzy", "untranslated");

 

25

                printf("%s\n", "-" x 43);

 

26

                $first = 0;

 

27

        }

 

28

        printf("%8s  %10d  %5d  %12d\n",

 

29

                $lang, $translated, $fuzzy, $untranslated);

 

30

}

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1