VPF::Удаление лишних символов - Форум программистов

tishaishii

Дата 5.3.2006, 03:12 (ссылка)

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

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

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

Есть много штук (5000) больших текстов (по 10-20 кб), надо из текстов (строк) удалить все символы, которых нет хотя бы в одном из текстов. И как можно скорее, и с минимальными затратами.

Есть у меня вариант, который мне совсем не нравится:

Код

my(%letter, %seen);
for(my$i=0; $i<@str; $i++) {
    %seen=();
    foreach my$letter(split undef, $str[$i]) {
        next if exists $seen{$letter};
        $letter{$letter}++;
        $seen{$letter}=1;
    }
}

delete @letter{+grep $letter{$_}==@str, keys %letter};
my$rpl='['.join(undef, map quotemeta, keys %letter).']';
s{$rpl}{}gos foreach @str;

print join ', ', @str;

не обращайте внимание на него, мне нужны другие варианты.

nitr

Дата 5.3.2006, 17:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

Почитай кукбук, там по-моему 4 варианта таких решений smile

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

I love ArchLinux

tishaishii

Дата 5.3.2006, 20:37 (ссылка)

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

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

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

Уже не надо мне ничего, готово. Только решение мне всё равно не нравится.

nitr

Дата 5.3.2006, 21:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

Я ж сказал там более 3 решений.. думаю 4, потестируй сам!

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

I love ArchLinux

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