VPF::Задачка на рекурсивные рег. выражения

Suppir

Дата 4.4.2010, 15:02 (ссылка)

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

Загрузка ...

Опытный

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

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

$a = '0123456789';

Нужно одним регулярным выражением переставить цифры в таком порядке:
8967452301

т.е. брать две последние цифры в строке и присоединять их к новой переменной.

Это сообщение отредактировал(а) Suppir - 4.4.2010, 15:03

Logo

Дата 4.4.2010, 16:42 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Код


$a = join '', reverse $a =~ m/\d\d/g;

Nab

Дата 6.4.2010, 14:12 (ссылка)

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

Загрузка ...

Опытный

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

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

Logo, а если цифр не четное число?
сказано с конца smile

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

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

Logo

Дата 6.4.2010, 14:41 (ссылка)

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

Загрузка ...

Опытный

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

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

Про нечетное количество цифр тоже ничего не было сказано smile

Код


($a = reverse $a) =~ s/(\d)(\d)/$2$1/

Suppir

Дата 6.4.2010, 14:42 (ссылка)

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

Загрузка ...

Опытный

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

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

Logo - вариант!

А кто-нибудь с рекурсивными регулярными выражениями может написать?

Logo

Дата 6.4.2010, 14:52 (ссылка)

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

Загрузка ...

Опытный

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

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

А зачем там рекурсия? Я даже с трудом представляю место, в котором "притягивать за уши":)

Suppir

Дата 6.4.2010, 14:57 (ссылка)

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

Загрузка ...

Опытный

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

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

Logo, просто хочу понять, как с ней работать smile

В версии 5.10 добавили в рег. выражения фичи для рекурсивной обработки.

Logo

Дата 6.4.2010, 15:31 (ссылка)

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

Загрузка ...

Опытный

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

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

Рекурсия нужна в обычно для поиска вложенных конструкций, здесь пример не подходящий, либо для многократного использования частей регулярного выражения, имитации грамматик. Ну, к примеру, так.

Код


$a = "0123456789";
$re = qr{
    (?&term)
    (?(DEFINE)
        (?<term>\d\d)
    )
}x;
while($a =~ /$re/g) {
  $a2 = ${^MATCH} . $a2;
}
print "$a2\n";

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