version 1.3, 2003/09/26 18:22:59
|
version 1.4, 2003/09/26 18:39:48
|
Line 20 foreach (<*.pm>) {
|
Line 20 foreach (<*.pm>) {
|
print "Reading: ".$_."\n"; |
print "Reading: ".$_."\n"; |
%master=(%master,&readlexicon($_)); |
%master=(%master,&readlexicon($_)); |
} |
} |
foreach $fn (<*.pm>) { |
|
|
foreach my $fn (<*.pm>) { |
print "Synching: ".$fn."\n"; |
print "Synching: ".$fn."\n"; |
my %lang=&readlexicon($_); |
my %lang=&readlexicon($fn); |
system ("cp $fn $fn.original"); |
system ("cp $fn $fn.original"); |
open(IN,$fn.'.original'); |
open(IN,$fn.'.original'); |
open(OUT,'>'.$fn); |
open(OUT,'>'.$fn); |
my $found=0; |
my $found=0; |
foreach (<IN>) { |
while (<IN>) { |
if ($_=~/\#\s*SYNCMARKER/) { $found=1; last; } |
if ($_=~/\#\s*SYNCMARKER/) { $found=1; last; } |
print OUT $_; |
print OUT $_; |
} |
} |
if ($found) { |
if ($found) { |
print OUT "\n\#SYNC ".localtime."\n"; |
print OUT "\n\#SYNC ".localtime()."\n"; |
|
foreach (sort keys %master) { |
|
unless ($lang{$_}) { |
|
print OUT (<<ENDNEW); |
|
'$_' |
|
=> '$_', |
|
|
|
ENDNEW |
|
} |
|
} |
|
|
print OUT "\n\#SYNCMARKER\n"; |
print OUT "\n\#SYNCMARKER\n"; |
foreach (<IN>) { |
foreach (<IN>) { |