(split) LDP: (Makefile) Make draft/release/stats per-po file processing

[linuxjm/LDP_man-pages.git] / tools / extract-untrans.pl

diff --git a/tools/extract-untrans.pl b/tools/extract-untrans.pl
new file mode 100755 (executable)
index 0000000..fa0224d
--- /dev/null
+++ b/tools/extract-untrans.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use File::Basename qw/basename/;
+
+$print_format = 1;
+
+while (<>) {
+    if (/^po4a/) {
+       @dat = split;
+       $cfg = $dat[$#dat];
+       @dat = split('/', $cfg);
+       $poname = $dat[2];
+       $poname =~ s/\.cfg$//;
+       $poname_print = 1;
+    }
+    next if ! /^Discard /;
+    s/\(//;
+    s/\)//;
+    @dat = split(' ');
+    $page = basename($dat[1]);
+    $comp = $dat[2];
+    $all  = $dat[4];
+    $remaining = $all - $comp;
+    $ratio = $comp / $all * 100;
+
+    if ($print_format) {
+       print "# pagename,#complete,#remaining,#all\n";
+       $print_format = 0;
+    }
+    print "$page,$comp,$remaining,$all\n";
+}