]>
git.ipfire.org Git - ipfire-2.x.git/blob - tools/langdiff.pl
9 my $numArgs = $#ARGV + 1;
11 print"Usage: langdiff.pl <languagefile1 - incomplete> <languagefile2 - complete>\n";
18 open(FILE1
, $file1) or die 'Unable to open file $file1.';
25 undef ($one[$#one-1]);
26 undef ($one[$#one-2]);
27 open(FILE2
, $file2) or die 'Unable to open file $file2.';
34 undef ($two[$#two-1]);
35 undef ($two[$#two-2]);
36 open(FILE3
, ">language-diff.txt") or die 'Unable to open config file.';
38 foreach my $line (@two){
39 my ($a,$b) = split ("=>",$line);
40 if(!&is_in_array
($a)){
42 print FILE3
"$a => $b";
49 foreach my $line1 (@one){
50 my ($c,$d) = split ("=>",$line1);
51 return 1 if ($val eq $c);
57 print"$cnt lines from $file2 are not existent in $file1. Please check language-diff.txt for details.\n\n";