![[BACK]](/icons/back.gif){kind=icon}
Return to checksimilar_2files.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / localize / localize|
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.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; |
| } | } |