Return to checksimilar_2files.pl CVS log | Up to [LON-CAPA] / loncom / localize / localize |
version 1.7, 2013/09/25 13:22:42 | version 1.8, 2013/12/20 14:27:54 |
---|---|
Line 36 sub read { | Line 36 sub read { |
sub similar_chars { | sub similar_chars { |
my $text = shift; | my $text = shift; |
$text =~ s/<\/*\w+ *\/*>//g; # HTML tags | |
$text =~ s/\[_\d\]//g; # translation parameters | $text =~ s/\[_\d\]//g; # translation parameters |
$text =~ s/[.,\_\-?!: \/\(\)]//g; # punctuation | $text =~ s/[.,\_\-?!: \/\(\)]//g; # punctuation |
return $text; | return $text; |