my %h = ('x' => '1');
print $h{'x'} . "\n";

работает правильно. Однако

use constant KEY => 'x';
my %h = ('x' => '1');
print $h{KEY} . "\n";

Use of uninitialized value in concatenation (.) or string at...

Почему?

Дело в том, что константы в Perl не интерполируются как строковые переменные. Но они очень успешно конкатенируются. Так что можно схитрить следующим образом:

Или же можно "представить" что константа - это список из одного элемента и просто написать так:

или же (для надёжности  )

Вот ещё один пример, как можно интерполировать константы и вызовы функций прямо в строке, не используя  конкатенацию.

Здесь создаётся анонимный массив состоящий из константы и тут же он разименовывается, в итоге получаем не имя константы, а её значение, не разрывая строки.
Например можно было бы записать имя и фамилию вот таким образом:

На первый взгляд может показаться, что необходимо вставить между ними ещё один елемент, с пробелом. Но делать этого не следует, так как наш массив интерполируется в строке, потому пробелы между елементами Perl вставит сам.

Это сообщение отредактировал(а) korob2001 - 10.9.2006, 03:51

Да, грамотнее ответа и представить сложно.

ZeeLax, korob2001, спасибо. Большое.