ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Max Kuriloff 2:5020/400 04 Dec 2000 13:19:01
To : All
Subject : Hа: немного о regexp'ах
--------------------------------------------------------------------------------
"Alexander Babanov" <Alexander.Babanov@p3.f1978.n5020.z2.fidonet.org>
сообщил/сообщила в новостях следующее:
news:975720385@p3.f1978.n5020.z2.ftn...
> Сейчас :)
>
> $s = "If it's walks like a duck and talks like a duck - it's a ... bug";
> $s =~ s/(.)/$c{$1}++/eg;
> foreach (sort keys %c) {
> print "$_: $c{$_}\n";
> }
Уточняюсь... Мне нужно найти несколько одинаковых _подрядидущих_ символов...
И если найдется что-то типа "ааааааа", заменить это на "а"...
Можно конечно двинуться напролом, искать все в цикле и т.д... Hо хотелось бы
использовать более элегантный (перловидный) код... :-)).
--- ifmail v.2.15dev5
* Origin: Novokuznetsk TTS (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
