VPF::Упрощение регулярного выражения

xido

Дата 29.10.2010, 16:55 (ссылка)

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

Загрузка ...

Новичок

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

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

uc($string)
s/.+/uc($1)/eg;

;)

Logo

Дата 27.12.2010, 11:44 (ссылка)

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

Загрузка ...

Опытный

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

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

Забыл сказать, изначально это был стеб. У ТС уже есть максимально простой способ сделать это, он же и самый быстрый.
Все, что ниже, применять за переделами perlgolf от лукавого есть. Короче по набору символов или строк != проще и понятней.
Поэтому правильный ответ на "Упрощение регулярного выражения" - никак, тут и так максмально просто.
На "Как это сделать в одну строчку" -

Код


$s =~ s/[A-Za-z]/[A-Z]/g; $s =~ s/[0-9]/[0-9]/g;

Ну, можно воспользоватся синтаксическим сахаром - украшательством

Код


for($s) {
  s/[A-Za-z]/[A-Z]/g;
  s/[0-9]/[0-9]/g;
}

или

Код


s/[A-Za-z]/[A-Z]/g, s/[0-9]/[0-9]/g for $s;

суть от этого не меняется.

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