TOOLS: new script langdiff added. With this script one can check a languagefile against another and gets a txtfile conatining the missing lines.
This commit is contained in:
parent
7506baa2eb
commit
33e64584dd
|
@ -0,0 +1,57 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
my @one=();
|
||||
my @two=();
|
||||
|
||||
my $file1;
|
||||
my $file2;
|
||||
my $cnt=0;
|
||||
my $numArgs = $#ARGV + 1;
|
||||
if ($numArgs !=2 ){
|
||||
print"Usage: langdiff.pl <languagefile1 - incomplete> <languagefile2 - complete>\n";
|
||||
exit;
|
||||
}else{
|
||||
$file1=$ARGV[0];
|
||||
$file2=$ARGV[1];
|
||||
}
|
||||
|
||||
open(FILE1, $file1) or die 'Unable to open file $file1.';
|
||||
my @one = <FILE1>;
|
||||
close(FILE1);
|
||||
undef ($one[0]);
|
||||
undef ($one[1]);
|
||||
undef ($one[2]);
|
||||
undef ($one[3]);
|
||||
undef ($one[$#one-1]);
|
||||
undef ($one[$#one-2]);
|
||||
open(FILE2, $file2) or die 'Unable to open file $file2.';
|
||||
my @two = <FILE2>;
|
||||
close(FILE2);
|
||||
undef ($two[0]);
|
||||
undef ($two[1]);
|
||||
undef ($two[2]);
|
||||
undef ($two[3]);
|
||||
undef ($two[$#two-1]);
|
||||
undef ($two[$#two-2]);
|
||||
open(FILE3, ">language-diff.txt") or die 'Unable to open config file.';
|
||||
|
||||
foreach my $line (@two){
|
||||
my ($a,$b) = split ("=>",$line);
|
||||
if(!&is_in_array($a)){
|
||||
$cnt++;
|
||||
print FILE3 "$a => $b";
|
||||
}
|
||||
}
|
||||
|
||||
sub is_in_array{
|
||||
my $val = shift;
|
||||
|
||||
foreach my $line1 (@one){
|
||||
my ($c,$d) = split ("=>",$line1);
|
||||
return 1 if ($val eq $c);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
print"$cnt lines from $file2 are not existent in $file1. Please check language-diff.txt for details.\n\n";
|
Loading…
Reference in New Issue