tools/extract-untrans.pl

   1 #!/usr/bin/env perl
   2
   3 use File::Basename qw/basename/;
   4
   5 $print_format = 1;
   6
   7 while (<>) {
   8     if (/^po4a/) {
   9         @dat = split;
  10         $cfg = $dat[$#dat];
  11         @dat = split('/', $cfg);
  12         $poname = $dat[2];
  13         $poname =~ s/\.cfg$//;
  14         $poname_print = 1;
  15     }
  16     next if ! /^Discard /;
  17     s/\(//;
  18     s/\)//;
  19     @dat = split(' ');
  20     $page = basename($dat[1]);
  21     $comp = $dat[2];
  22     $all  = $dat[4];
  23     $remaining = $all - $comp;
  24     $ratio = $comp / $all * 100;
  25
  26     if ($print_format) {
  27         print "# pagename,#complete,#remaining,#all\n";
  28         $print_format = 0;
  29     }
  30     print "$page,$comp,$remaining,$all\n";
  31 }