blob: 0324ad88a2e462ab2a0683d1137326bc7efb2826 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl -CS
use strict;
use utf8;
use XML::TreeBuilder;
foreach my $file_name (@ARGV) {
my $tree = XML::TreeBuilder->new({'NoExpand' => 0, 'ErrorContext' => 0});
$tree->parse_file($file_name, ProtocolEncoding => 'UTF-8');
foreach my $string ($tree->find_by_tag_name('message')) {
my $source = $string->find_by_tag_name('source')->as_text;
my $translation = $string->find_by_tag_name('translation')->as_text;
next unless $translation =~ /\S/;
my @source_args = ($source =~ /\%([^\s\-\(\)])/g);
my @translation_args = ($translation =~ /\%([^\s\-\(\)])/g);
if (scalar(@source_args) != scalar(@translation_args)) {
print "$file_name:\n$source\n->\n$translation\n\n";
}
}
}
|
