У меня есть ситуация, когда я хочу создать подпись структуры данных:
my $signature = ds_to_sig(
{ foo => 'bar',
baz => 'bundy',
boing => undef,
number => 1_234_567,
}
);
Цель должна состоять в том, что если структура данных изменится, то должна измениться и подпись.
Есть ли установленный способ сделать это?
Лучший способ сделать это — использовать систему сериализации с глубокой структурой, такую как Storable< /а>. Две структуры с одними и теми же данными будут давать один и тот же блок вывода Storeable, поэтому их можно сравнивать.
#!/usr/bin/perl
use strict;
use warnings;
use Storable ('freeze');
$Storable::canonical = 1;
my $one = { foo => 42, bar => [ 1, 2, 3 ] };
my $two = { foo => 42, bar => [ 1, 2, 3 ] };
my $one_s = freeze $one;
my $two_s = freeze $two;
print "match\n" if $one_s eq $two_s;
...И чтобы доказать обратное:
$one = [ 4, 5, 6 ];
$one_s = freeze $one;
print "no match" if $one_s ne $two_s;
Я думаю, что вы ищете хеш-функцию. Я бы рекомендовал такой подход:
use Storable;
$Storable::canonical = 1;
sub ds_to_sig {
my $structure = shift;
return hash(freeze $structure);
}
Хэшем функции может быть любая хэш-функция, например функция md5 из Digest:: MD5
Используйте Storable::nstore, чтобы преобразовать его в двоичное представление, а затем вычислить контрольную сумму (для пример с модулем Digest).
Оба модуля являются базовыми.
Думаю, вам нужно слово "хеширование".
По сути, вы пропускаете свою структуру данных через функцию, которая генерирует из нее довольно уникальное значение. Это значение будет вашей подписью.
Разве вы не можете использовать объект вместо структуры? Таким образом, вы могли бы видеть, является ли объект экземпляром типа, без необходимости сравнивать хэши и т.д.
