Создание серверных приложений на языке PERL

ремонт посудомоечных машин bosch в москве serviceboschmoscow.ru/

Хэши slice - часть 2


Названия %foo_to_bar, %is_a_foo, $foo_to_index подобраны так, чтобы нагляднее показать принцип работы slise. Фактически была проведена индексация входных данных и выходных данных в хеш splice. Теперь рассмотрим хэш splice снова @array{ @array } = ( [ @array ] ) x @array ;. Заметим, что хэш и массив(и скаляр) называются массивами, но это различные переменные, в частности отличные по разделитеям. Левая часть выражения - присваивание хэшу slice, но что-же стоит справа? Оператор x и @array справа дублирует повторения счетчика и некоторый лист слева и мы имеем контекстный список. Хеш slice есть список контекстов, мы создаем скопированный список анонимного массива, который содержит значения в @array. Это значит что хэш %array напоминает такой массив:

%array = (

'a' => [ 'a', 'b', 'c', 'd' ],

'b' => [ 'a', 'b', 'c', 'd' ],

'c' => [ 'a', 'b', 'c', 'd' ],

'd' => [ 'a', 'b', 'c', 'd' ],

) ;

Если имеется набор псевдонимов(alias), то можно, обращаясь к списку, вывести каждый из них в отдельности(ср. alias для сокращения часто употребляемой команды в unix). Т.е. вводится любой из отдельных элементов и мы получаем список данных. Если имеется список массивов, то их можно обработать таким образом:

@foo_list = qw( a b c d );

@bar_list = qw( j k l m n o );

@baz_list = qw( w x );

@expand_aliases{ @foo_list } = ( [ @foo_list ] ) x @foo_list;

@expand_aliases{ @bar_list } = ( [ @bar_list ] ) x @bar_list;

@expand_aliases{ @baz_list } = ( [ @baz_list ] ) x @baz_list;

Если есть лексемма неопределенного типа, то можно получить список псевдонимов за 1 шаг @aliases = @{ $expand_aliases{ $alias } } ; Окружение @{} используется, чтобы разыменовать сохраненный анонимный список в список для присвоения @aliases.

есть хэш, типа

$myhash{name}=qwert;

$myhash{age}=15;

как сделать автоматическое создание переменной=ключу хэша со значением

из этого хэша с этим же ключом, т.е. $name=qwert; $age=15 и т.д.

либо так:

my %myhash;

$myhash{name}='qwert';

$myhash{age}=15;

for $abc (keys %myhash)




Начало  Назад  Вперед



Книжный магазин