Программирование > Регулярные выражения

Переменные из скрипта perl

(1/1)

Error202:
Надо вытащить все переменные, имена которых больше 1-о символа из Perl скрипта
Задаются они там $name
$name[], $name{} - не нужны

Пишу шаблон:

\\$([a-zA-Z0-9_]{2,})


Вытаскиваются все $name, $name[, $name{
Как мне исключить обработку $name[], $name{}?

ravshaniy:

--- Код: ---
my $str = \'$name asdfas $name1[1 ] $name2{ $name3 }\';
@foo = $str =~ m/(\\$[a-zA-Z0-9_]{2,}(:?\\s+)?[\\[|\\{]?)/g;
@foo = grep(!/\\$[a-zA-Z0-9_]{2,}(:?\\s+)?[\\[|\\{]/, @foo);
print $_,"\\n" for(@foo);

--- Конец кода ---


только вот в скобках внутни фигня получаеся;
может все таки есть какая нибудь переменная среды, откуда можно получить доступ ко всем переменным объявленным в нэймспейсе

Навигация

[0] Главная страница сообщений