Автор Тема: Переменные из скрипта perl  (Прочитано 4991 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Error202

  • Бесстрашный
  • Ветеран
  • *****
  • Сообщений: 540
  • +1/-0
  • 2
    • Просмотр профиля
    • http://www.tender-plus.ru
Переменные из скрипта perl
« : 15 Мая 2008, 16:17:31 »
Надо вытащить все переменные, имена которых больше 1-о символа из Perl скрипта
Задаются они там $name
$name[], $name{} - не нужны

Пишу шаблон:

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


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

Оффлайн ravshaniy

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 191
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Переменные из скрипта perl
« Ответ #1 : 15 Мая 2008, 19:16:13 »

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);


только вот в скобках внутни фигня получаеся;
может все таки есть какая нибудь переменная среды, откуда можно получить доступ ко всем переменным объявленным в нэймспейсе
« Последнее редактирование: 16 Мая 2008, 10:43:53 от ravshaniy »
убили кенни, сволочи

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28