когда-то давно

dev 29.03.2006 20:30

...мной был написал простейший форум на перле, там была такая фукция(перевел на парсер ее, но так и не пользуюсь):

@fakeq[str1;str2][r]
$str1[^str1.match[(\s+)][g]{}]
$str2[^str2.match[(\s+)][g]{}]
$str1[^str1.lower[]]
$str2[^str2.lower[]]
$r[^table::create{from	to
.	
_	
+	
-	
:	
-	
*	
\/	v
^]^[	x
)(	x
1	i
|	i
l	i
4	ч
()	o
0	o
о	o
а	a
#^@	a
р	p
м	m
н	h
у	y
х	x
е	e
t	т
к	k
с	c
и	n
з	3
w	v
^}|^{	ж}]
$str1[^str1.replace[$r]]
$str2[^str2.replace[$r]]
^if($str1 eq $str2){
	$result(1)
}{
	$result(0)
}

---