PERL - статьи


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


%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)

{

$$abc=$myhash{$abc};

}

print "\$name=$name; \$age=$age\n и т.д.";

либо так:

$$_ = $myhash{$_} for keys %myhash;

что в принципе одно и то-же...

from:

Объявление анонимного хеша:

Ссылки на существующие данные часто применяются для передачи аргументов функции, но в динамическом программировании они бывают неудобны. Для любой переменной

есть два параметра, е имя и адрес области памяти, где хранится эта переменная. Скалярная величина, хранящая адрес области памяти, назвается ссылкой. Значение, хранящееся в памяти по данному адресу называется субъектом(referent).

Анонимные хеши в perl могут создаваться явно. При этом выделяется память для хеша и возвращается ссылка на не .

$hash{map{$_ => $_*$_}(0 .. 4)}

while(($k, $v) = each %$hash){

print "$k => $v\n";

}

print $hash->{"3"}, "\n";

в цикле использовалась ссылка $hash на анонимный хеш.

Обратиться к нужному элементу хеша можно и при помощи ассоциативного оператора стрелка ->:

print $hash->{"3"}, "\n";

Пример использования анонимного хеша для выкидывания повторяющихся элементов из массива:

keys %{{ map { $_, 1 } @array }} # @array -> anonymous hash -> keys

Источник:




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