Return to findequal.pl CVS log | Up to [Local Repository] / db / prgsrc / eq |
version 1.1, 2001/05/18 01:37:51 | version 1.4, 2001/05/18 03:23:45 |
---|---|
Line 60 while ((($id, $a) = getrow), $id) | Line 60 while ((($id, $a) = getrow), $id) |
$a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/; | $a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/; |
$a=uc $a; | $a=uc $a; |
$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâà]//g; | $a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâàÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ]//g; |
$ar[$id]=$a; | $ar[$id]=$a; |
$last=$id; | $last=$id; |
} | } |