blob: c01b9b8f31ee0f4b90e642228d7df038a50ca7fe (
plain)
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
|
#! /usr/bin/perl
# Remove header entry of two PO files and compare them
my $f1 = shift(@ARGV);
my $f2 = shift(@ARGV);
open IN1, "<", $f1 or die "Unable to read 1st file: $!\n";
open IN2, "<", $f2 or die "Unable to read 2nd file: $!\n";
my $inMsgstr = 0;
my $lineno = 0;
while (<IN1>) {
$lineno ++;
if (m/^msgstr/) {
$inMsgstr = 1;
} elsif ($inMsgstr == 1 && $_ !~ /^"/) {
last;
}
}
$inMsgstr = 0;
while (<IN2>) {
if (m/^msgstr/) {
$inMsgstr = 1;
} elsif ($inMsgstr == 1 && $_ !~ /^"/) {
last;
}
}
# Now compare lines
while (<IN1>) {
$lineno ++;
my $l2 = <IN2> or die "Unexpected EOF found when reading $f2\n";
$_ eq $l2 or die "Files $f1 and $f2 differ at line $lineno:\n-$_+$l2\n";
}
close IN1;
die "EOF expected at 2nd file\n" unless eof(IN2);
close IN2;
exit 0;
|
GitWeb
