po/xml2po

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my %used;
   6 my ($list, $fh);
   7
   8 open($list, $ARGV[0]) or die "cannot open list";
   9
  10 chdir $ARGV[1];
  11
  12 while (<$list>) {
  13         my $xmlpath=$_;
  14         my $xmlfile=`basename $xmlpath`;
  15         chomp $xmlfile;
  16
  17         open ($fh, "<$xmlpath") or die "cannot open file $xmlpath";
  18
  19         my $line=1;
  20         while (<$fh>) {
  21                 while (s/(\w+)=\"(.*?)\"//) {
  22                         if ($1 eq "text" or $1 eq "helptext")
  23                         {
  24                                 $used{$2} .= "#: $xmlfile:$line\n";
  25                         }
  26                 }
  27                 $line++;
  28         }
  29         close ($fh);
  30 }
  31
  32 for (keys %used) {
  33         print "$used{$_}msgid \"$_\"\nmsgstr \"\"\n\n"
  34 }