VPF::Регулярные выражения - Форум программистов

Дата 27.5.2005, 09:20 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 9.3.2005
Где: г. Новокузнецк

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

Мне нужно перевести в верхний регистр текст между строками /* и */.
Такой код работает не верно

Код


use strict;
my $t = 'aaa /* bbb */ ccc /* ddd */ eee';
$t =~ s/\/\*(.*)\*\//uc($1)/ge;
print $t . "\n";

Результат

Код


aaa  BBB */ CCC /* DDD  eee

Помогите пожалуйста

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

Дата 27.5.2005, 09:33 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 9.3.2005
Где: г. Новокузнецк

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

Нашел в Cookbook пример и понял как надо сделать:

Код


use strict;
my $t = 'aaa /* bbb */ ccc /* ddd */ eee';
$t =~ s/\/\*(.*?)\*\//uc($1)/ge;
print $t . "\n";

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

Дата 30.5.2005, 02:01 (ссылка)

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

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

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

Маленький совет. Если нужно использовать в регулярном выражении много слэшей, то лучше воспользловаться альтернативным синтаксисом. В твоем примере:

Код


$t =~ s!/\*(.*?)\*/!uc($1)!ge;
# или так
$t =~ s[/\*(.*?)\*/][uc($1)]ge;

На любителя конечно, но по моему так более "читабельно" smile

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

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

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