VPF::Поиск слов начинающихся с $ исключая комментарии.

TChainik

Дата 10.10.2007, 08:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток!

Подскажите, пожалуйста, как найти в тексте все слова
начинающиеся с $ кроме слова $result и текста
в комментариях типа // $бла $бла $бла
и /* $бла $бла $бла */

сделал регексп для текста без учета комментариев, вот:

\$(?!result)\w+

Заранее, спасибо.

tishaishii

Дата 10.10.2007, 10:22 (ссылка)

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

Загрузка ...

Создатель

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

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

Код

$/=undef;
$str=<DATA>;
$str=~s{//[^\r\n]*|/\*.*?\*/}{push @arr, $&; +'@@'}geos;
print $&, "\n" while $str=~m{\$\w+}gcs;
$str=~s{\Q@@\E}{+shift @arr}geos;
print '-' x 10, "\n";
print $str;

__END__
$a dsfds $b //$c
/*
    $d
*/
$e

amg

Дата 10.10.2007, 10:24 (ссылка)

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

Загрузка ...

Эксперт

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

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

Можно сначала удалить все комментарии:

Код


s%[ \t]*//.*?\n?%%g;
s%/\*([^*]|\*(?!/))*\*/[ \t]*\n?%%g;

Опоздал...

Это сообщение отредактировал(а) amg - 10.10.2007, 10:27

tishaishii

Дата 10.10.2007, 10:37 (ссылка)

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

Загрузка ...

Создатель

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

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

А можно ничего не удалять.

Код

$/=undef;
$str=<DATA>;
my($old, $new, $s);

while($str=~m{//[^\r\n]*|/\*.*?\*/}gcs) {
    $new=pos $str;
    $s=substr $str, $old, $new-$old-length $&;
    $old=$new;
    print $&, "\n" while $s=~m{\$\w+}gcs;
}
$s=substr $str, $old;
print $&, "\n" while $s=~m{\$\w+}gcs;

__END__
$a dsfds $b //$c
/*
    $d
*/
$e

TChainik

Дата 11.10.2007, 00:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо большое всем ответившим.

А скажите пожалуйста, приведенные конструкции можно оформить одним регекспом?

shamber

Дата 11.10.2007, 13:52 (ссылка)

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

Загрузка ...

Эксперт

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

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

TChainik, а может просто оформить вызовом функции ?

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