Re: доработал пример отлова непарных символов больше/меньше

Spearance 03.07.2008 11:27

А заодно проверил разницу обратной замены через таблицу или foreach с матчами. Таблица замен шустрее и менее прожорлива.

@textPreprocess[text][tRepl;hTags;md5]
$result[$text]
^if(^text.pos[<] > 0 || ^text.pos[>] > 0){
	$tRepl[^table::create{from	to^#0A<	&lt^;^#0A>	&gt^;}]
	$hTags[^hash::create[]]
	$result[^text.match[<(/?(?=[a-z])[^^>]+)>][gi]{$md5[^math:md5[$match.1]]$hTags.[$md5][$match.1]$md5}]
	$result[^result.replace[$tRepl]]
	^if($hTags){
		$tRepl[^table::create{from	to^#0A^hTags.foreach[md5;tag]{$md5	<$tag>}[^#0A]}]
		$result[^result.replace[$tRepl]]
	}
}
### End @textPreprocess

---