loncom/localize/localize/checksimilar_2files.pl - diff

Return to checksimilar_2files.pl CVS log

Up to [LON-CAPA] / loncom / localize / localize

version 1.2, 2010/08/03 13:00:21	version 1.3, 2013/01/07 15:13:26
Line 70 sub CourseCommunity {	Line 70 sub CourseCommunity {

my $file1 = $ARGV[0]; # Old language.pm	my $file1 = $ARGV[0]; # Old language.pm
my $file2 = $ARGV[1]; # New Phrases	my $file2 = $ARGV[1]; # New Phrases

	print("Checking for similar expressions in phrases in $file1 and $file2...\n");

my %langOLD = &read($file1); #Hash with old phrases	my %langOLD = &read($file1); #Hash with old phrases
my %langNEW = &read($file2); #Hash with new phrases	my %langNEW = &read($file2); #Hash with new phrases
my $dlm;	my $dlm;
my $count = 1; #Counter	my $count = 0;

open(OUT,'>similarities.txt') or die;

# For each new phrase, check if there is already a similar one	# For each new phrase, check if there is already a similar one
while( my ($kNEW, $vNEW) = each %langNEW ) {	while( my ($kNEW, $vNEW) = each %langNEW ) {
Line 98 while( my ($kNEW, $vNEW) = each %langNEW	Line 99 while( my ($kNEW, $vNEW) = each %langNEW
} else {	} else {
$dlm = "'";	$dlm = "'";
}	}
print OUT (<<ENDNEW);	print (<<ENDNEW);
#Old key: $kOLD	# $kOLD #(Old key)
$dlm$kNEW$dlm	$dlm$kNEW$dlm
=> $dlm$vOLD$dlm,	=> $dlm$vOLD$dlm,