blob: ed4be6de79493cdfb8c6161e4cb6f0a25144797e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#!/usr/bin/perl
sub catfile {
my $a = "";
open(F, shift) || return "";
while (<F>) { s/\r//g; trim; if (not m/^#/) { $a .= $_; } };
close(F);
return $a;
}
$original = "english";
$translation = "german";
$origfile = "links.en.txt";
$transfile = "links.de.txt";
open FR, ">$transfile" || die "Can't create file";
open FE, ">$origfile" || die "Can't create file";
@list = `find $translation/ -name *.wml -type f -print`;
foreach $rus (@list) {
chomp($rus);
($eng = $rus) =~ s{$translation}{$original};
($f = $rus) =~ s{$translation/}{};
$rrus = catfile($rus);
$rrus =~ s{/\n}{}g;
$rrus =~ s{\n}{ }g;
@lrus = ();
$rrus =~ s{<[aA]\s*[hH][rR][eE][fF]=(.*?)>}{
push @lrus, "$f: $1"; $1
}gse;
foreach (sort @lrus) { print FR "$_\n"; }
$reng = catfile($eng);
$reng =~ s{/\n}{}g;
$reng =~ s{\n}{ }g;
@leng = ();
$reng =~ s{<[aA]\s*[hH][rR][eE][fF]=(.*?)>}{
push @leng, "$f: $1"; $1
}gse;
foreach (sort @leng) { print FE "$_\n"; }
}
close FE;
close FR;
exec("diff -u $transfile $origfile > links.diff");
|