You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
787 B
38 lines
787 B
#! /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;
|