mirror of
https://github.com/subsurface/subsurface.git
synced 2025-02-19 22:16:15 +00:00
21 lines
700 B
Perl
21 lines
700 B
Perl
|
#!/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";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|