Return to findequal.pl CVS log | Up to [Local Repository] / db / prgsrc / eq |
version 1.2, 2001/05/18 02:52:59 | version 1.3, 2001/05/18 03:12:49 |
---|---|
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; |
} | } |