version 1.6, 2003/10/14 17:34:04
|
version 1.7, 2003/11/28 02:12:05
|
Line 1
|
Line 1
|
|
#$numbered=1; |
|
|
sub readlexicon { |
sub readlexicon { |
my $fn=shift; |
my $fn=shift; |
Line 57 foreach my $fn (<*.pm>) {
|
Line 57 foreach my $fn (<*.pm>) {
|
print OUT $_; |
print OUT $_; |
} |
} |
if ($found) { |
if ($found) { |
|
$i=0; |
print OUT "\n\#SYNC ".localtime()."\n"; |
print OUT "\n\#SYNC ".localtime()."\n"; |
foreach my $key (sort keys %master) { |
foreach my $key (sort keys %master) { |
unless ($key) { next; } |
unless ($key) { next; } |
Line 69 foreach my $fn (<*.pm>) {
|
Line 70 foreach my $fn (<*.pm>) {
|
if (lc($copytrans) ne lc($key)) { |
if (lc($copytrans) ne lc($key)) { |
$comment='# '.$copytrans; |
$comment='# '.$copytrans; |
} |
} |
|
if ($numbered) { |
|
$i++; |
|
$num=' ('.$i.')'; |
|
} else { |
|
$num=''; |
|
} |
|
if ($key=~/\'/) { |
|
$del='"'; |
|
} else { |
|
$del="'"; |
|
} |
print OUT (<<ENDNEW); |
print OUT (<<ENDNEW); |
'$key' |
$del$key$del |
=> '$key', |
=> $del$key$num$del, |
$comment |
$comment |
ENDNEW |
ENDNEW |
} |
} |