Можно ли хранить в нем информацию о хеше? И под этим я подразумеваю без добавления информации к хэшу обычным способом, который повлиял бы на ключи, значения и т.д.
Дело в том, что я читаю twod_array в хеш, но хотел бы сохранить порядок в исходном массиве, не влияя на то, как он проходит через хэш и т. д.
так например:
my @the_keys=keys %the_hash;
не должен возвращать информацию о порядке хеша.
Есть ли способ хранить метаданные в хеше?
Вы можете хранить произвольные метаданные с помощью tie механизма. Минимальный пример с хранилищем пакетов, которое не влияет на стандартный хэш-интерфейс:
package MetadataHash;
use Tie::Hash;
use base 'Tie::StdHash';
use Scalar::Util qw(refaddr);
our %INSERT_ORDER;
sub STORE {
my ($h, $k, $v) = @_;
$h->{$k} = $v;
push @{ $INSERT_ORDER{refaddr $h} }, $k;
}
1;
package main;
tie my %h, 'MetadataHash';
%h = ( I => 1, n => 2, d => 3, e => 4 );
$h{x} = 5;
# %MetadataHash::INSERT_ORDER is (9042936 => ['I', 'n', 'd', 'e', 'x'])
print keys %h;
# 'enIxd'
Что ж, всегда можно использовать Tie::Hash::Indexed, я предполагать:
use Tie::Hash::Indexed;
tie my %hash, 'Tie::Hash::Indexed';
%hash = ( I => 1, n => 2, d => 3, e => 4 );
$hash{x} = 5;
print keys %hash, "\n"; # prints 'Index'
print values %hash, "\n"; # prints '12345'
keys %the_hash не должен не возвращать информацию о порядке хэша, не так ли? 02.07.2012 
