Через переменную $varname поступает имя переменной. Далее необходимо обратиться к значению самой переменной $$varname. Но перед этим надо сделать валидацию корректности всех символов внутри $varname на предмет допустимых для написания переменной в PERL.

Как это можно сделать универсально при помощи одного или нескольких регулярных выражений?

В принципе интересен частный случай когда переменная только скалярная и общий когда это может быть и скаляр и @ % или typeglob

Это сообщение отредактировал(а) comhunt - 6.3.2010, 14:21

как вариант

Правильный скаляр : $x, $strName, $y1, $_name
Не правильный скаляр : yyy, $1y, $_1

Это сообщение отредактировал(а) dva300 - 7.3.2010, 14:51

А почему там стоит буква Я ? а буква А- латинская. Разве имена переменных в PERL могут быть написаны русскими буквами?

А какую максимальную длину может иметь имя переменной в PERL ? Интерпретатор PERL это как-то ограничивает?

Это сообщение отредактировал(а) comhunt - 7.3.2010, 14:16

это я ошибся   там болжно быть A-Z
length для получения длины длины. 

dva300, спасибо. теперь все корректно работает 
Ну на счет длины я догадывался как определить ее - при помощи функции length.

Но на самом деле интересует принципиально другой вопрос. А что делать с этой длинной? С каким максимальным значением ее сравнивать? И есть ли оно в PERL для имени переменной?

Вам надо прочитать про хеши. И никогда-никогда не делать то, чем вы сейчас пытаетесь заняться. По многим причинам. Прочитайте про use strict, про лексические перменные (my).

PS: Это неверное регулярное выражение. 

стало очень интересно почему это "никогда-никогда" и по каким это "многим причинам". надеюсь это не военная тайна 
и как мне прикрутить my к решению выше описанной задачи ?

  

my здесь при том, что он создаёт лексические переменные, доступ к которым ч/з $$ не получить. А в нормальной программе (при использовании strict) почти все переменные - лексические. Пакетные переменные, в большинстве случаев, - пережиток прошлых perl'ов.

Никогда-никогда - потому что вы не знаете, что вам придёт в качестве имени переменной. Вы пытаетесь проверить её только на синтаксическую, но не семантическую валидность - вам просто возьмут, и перезапишут какую-либо внутреннюю переменную модуля (или у вас даже не модуль, а монолитный скрипт?))).

Решать задачу надо через хеш - вместо имён переменных - ключи хэша, в этом случае эти значения никуда "вовне" не утекут.

В общем и целом согласен с предыдущим оратором - автору топика хочется чего-то странного, такого какого делать не нужно ни при каких условиях.

Но всё же, если вам хочется что-нибудь "эдакого" (откровенно говоря - извращений  ), то могу предложить вот такой вариант:


PS use warnings выключаются что бы в stderr не плевалось всякое непотребство, если например пришли кавычки в имене переменной. Вообще же сильно рекомендую всегда использовать эту директиву.

PSPS Вообще при некоторых камланиях perl вроде как можно научить понимать идентификаторы написанные буквами отличными от латинских (юникодом если), только что-то не уверен что кто-нибудь захочет такое видеть в чужом (и своём тоже) коде.