Функція - Вибірка унікальних слів

function GetUniques($text)
{ // Сначала получаем все слова в тексте
 $Words=split("[[:punct:][:blank:]]+",$text);
 $Uniq=array(); // список уникальных слов
 $Test=array(); // хэш уже обработанных слов
 // Проходимся по всем словам в $Words и заносим в $Uniq уникальные
 foreach($Words as $v) {
 $v=strtolower($v); // в нижний регистр
 // Слово уже нам встречалось? Если нет, то занести в $Uniq
 if(!@$Test[$v]) $Uniq[]=$v;
 // Указать, что это слово уже обрабатывалось
 $Test[$v]=1;
 }
 // Наконец, сортируем список
 sort($Uniq);
 return $Uniq;
}