loncom/localize/localize/checksimilar_2files.pl - diff

Return to checksimilar_2files.pl CVS log

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

version 1.6, 2013/01/24 13:52:21	version 1.7, 2013/09/25 13:22:42
Line 37 sub read {	Line 37 sub read {
sub similar_chars {	sub similar_chars {
my $text = shift;	my $text = shift;
$text =~ s/\[_\d\]//g; # translation parameters	$text =~ s/\[_\d\]//g; # translation parameters
$text =~ s/[.,\_\-?!: \/]//g; # punctuation	$text =~ s/[.,\_\-?!: \/]//g; # punctuation
return $text;	return $text;
}	}