Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > Имя константы из значения переменной.


Автор: nevsky 30.10.2006, 13:18
Всем привет.

Возникла такая проблема, не знаю как решить.
Надо создать константу имя которой хранится в переменной.
Т.е.

#!/usr/bin/perl -w

%hash = ( 'key1', 'value1', 'key2', 'value2', 'key3', 'value3' );

foreach $key (sort keys %hash) {
#   print "$key\n";
   use constant $key => "VALUE";
}

print key1;

должно напечатать: VALUE
 smile 

Автор: DiverD 30.10.2006, 15:04
http://forum.vingrad.ru/topic-111014/unread-1/hl/use%2Cand%2Cconstant/index.html
http://perlmonks.org/?node=use+constant

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)