VPF::Выборка повторяющихся словосочетаний

frenkys

Дата 8.12.2007, 01:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 18.6.2005

Репутация: 1
Всего: 1

помогите создать регексп котрый будет превращать

"Где кошки? кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки?"

в Где кошки?

тоесть есть есть текст и в нем нужно убрать заменить серию повотряющихся подряд словосочетаний на одно

--------------------

niva[frenky]

onsql

Дата 8.12.2007, 01:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 94
Регистрация: 3.12.2007

Репутация: нет
Всего: 3

Как то так?

Код


$str = "Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Саббака... Где кошки? Где кошки?   Где кошки?";
$str =~ s/(Где кошки\?\s*)+/$1/g;
print "The resulting value is : $str \n";

Это сообщение отредактировал(а) onsql - 8.12.2007, 01:58

frenkys

Дата 8.12.2007, 02:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 18.6.2005

Репутация: 1
Всего: 1

хм

))))))))

поправка : где кошки это так для примера , на самом делле я не знаю какое словосочетание регулярка должна сама его определить

--------------------

niva[frenky]

frenkys

Дата 8.12.2007, 02:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 18.6.2005

Репутация: 1
Всего: 1

Код




$comment=~s/((?:\s+[А-яA-z]+)+[?*]){10,100}/$1/g;

похоже нашел решение

--------------------

niva[frenky]

frenkys

Дата 8.12.2007, 02:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 18.6.2005

Репутация: 1
Всего: 1

хотя я с

Код


Где кошки? Где  кошки? кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где кошки? Где freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? freak me? 
stop it! stop it! stop it! stop it! stop it! stop it! stop it! stop it! stop it! stop it! stop it! stop it! stop it! stop it!

оно не справилось

Добавлено через 6 минут и 27 секунд

Код


$comment=~s/((?:\s+[А-яA-z]+)+[?!:,-]+)\1{8,100}/$1/g;

во теперь гуд все

--------------------

niva[frenky]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »