VPF::"Интересный" regexp - Форум программистов

nitr

Дата 6.4.2007, 10:08 (ссылка)

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

Загрузка ...

Эксперт

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

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

Вот нашёл в сети, понравилось, можно создать некое решение, которое будем использовать при таких вот случаях:

Цитата

из текста:

Цитата

push 'ax', 'bx', 'cx'
getReg

получить вот такое:

Цитата

push 'ax'
getReg
push 'bx'
getReg
push 'cx'
getReg

Мой ответ таков:

Код


#!perl
use strict; use warnings;

my $str = qq|push 'ax', 'bx', 'cx'
getReg|;

$str =~ s/[^']*('\S+')[^']*/"push $1\ndetReg\n"/eg;

print $str;

Буду благодарен, если немного усложним задачку smile

. Но хорошо бы и ваши решения увидеть ;)

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

I love ArchLinux

KSURi

Дата 6.4.2007, 13:12 (ссылка)

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

Загрузка ...

Опытный

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

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

Код

print"push $_\ngetReg\n" foreach$str=~/'\S{2}'/g;

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

Died at Life.pl line 21

nitr

Дата 6.4.2007, 13:31 (ссылка)

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

Загрузка ...

Эксперт

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

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

интересно

спасибо за участие... регеспу можно до более универсальности довести, будет хорошее решение smile

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

I love ArchLinux

amg

Дата 6.4.2007, 14:10 (ссылка)

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

Загрузка ...

Эксперт

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

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

Еще вариант

Код


print join "\ngetReg\npush ", split(/,\s*/, $str);

nitr

Дата 6.4.2007, 14:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

amg, ага smile

только думаю он сложней под универсальность подойдёт? как считаешь?
код KSURi с регеспой, которую можно переделать... к примеру /'[^']*'/g

amg, что скажешь?

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

I love ArchLinux

amg

Дата 6.4.2007, 14:51 (ссылка)

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

Загрузка ...

Эксперт

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

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

Про универсальность.
Строку $str можно представить так:

Код


$begin = 'push ';
$end = '\ngetReg';
$element = "'[^']*'";
$terminator = ',\s*';
$srt =~ /$begin($element$terminator)+$element$end/;

Для решения задачи нужно знать ($begin, $end и $element) либо ($begin, $end и $terminator).

KSURi

Дата 6.4.2007, 15:28 (ссылка)

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

Загрузка ...

Опытный

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

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

Добавить универсальности можно еще так:

Код


#!perl -w

use strict;

my $str=qq{push 'ax', 'bx', 'cx'
getReg};

my $a=(split(' ',$str))[0];
my $b=(split("\n",$str))[1];

print"$a $_\n$b\n" foreach$str=~/'[^']*'/g

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

Died at Life.pl line 21

nitr

Дата 6.4.2007, 15:58 (ссылка)

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

Загрузка ...

Эксперт

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

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

Спасибо, разрулили тему smile

... может позже ещё что-нибудь попадётся...

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

I love ArchLinux

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