Forum Webscript.Ru

Программирование => Perl => Тема начата: Error202 от 17 Января 2006, 11:23:25

Название: Поиск переменных
Отправлено: Error202 от 17 Января 2006, 11:23:25

По шаблону:
(\\$[a-zA-Z0-9_]+)
Я нахожу все $Var...

Как сделать так, чтобы $Var[XX] и $Var{XX} не входили в это условие?

Название: Поиск переменных
Отправлено: arto от 17 Января 2006, 12:09:03

1. while ($a =~ m|\\$[\\w\\[\\{\\}\\]]+|g) { print "$&\\n" if ($& !~ m|[[{]|); }
2. %a = (\'a\' => 1}; print $a {\'a\'}; ?

Название: Поиск переменных
Отправлено: Error202 от 17 Января 2006, 12:48:04

Спасибо!!!