Jak utworzyć powtarzalną sygnaturę struktury danych?

Question

Mam sytuacji, gdzie chcę, aby utworzyć podpis struktury danych:

my $signature = ds_to_sig(
    { foo => 'bar', 
    baz => 'bundy', 
    boing => undef, 
    number => 1_234_567, 
    } 
); 

Celem powinno być, że jeśli zmiany struktury danych wówczas tak powinien podpis.

Czy istnieje ustalony sposób na zrobienie tego?

Answer 1

Najlepszym sposobem na to jest użycie głęboko serializowanego systemu serializacji, takiego jak Storable. Dwie struktury z tymi samymi danymi wytworzą taki sam obszar roboczy, który można zapisać, aby można je było porównać.

#!/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; 

... I udowodnić odwrotność:

$one = [ 4, 5, 6 ]; 
$one_s = freeze $one; 

print "no match" if $one_s ne $two_s; 

Answer 2

Myślę, że słowo, którego szukasz, to "hashing".

Po prostu umieszczasz strukturę danych za pomocą funkcji, która generuje z nich dość unikalną wartość. Ta wartość byłaby twoim znakiem.

Answer 3

Myślę, że to, czego szukasz, to funkcja skrótu. Polecam podejścia takiego:

use Storable; 
$Storable::canonical = 1; 
sub ds_to_sig { 
    my $structure = shift; 
    return hash(freeze $structure); 
} 

Funkcja skrótu może być dowolna funkcja skrótu, na przykład md5 funkcji z Digest::MD5

Answer 4

Czy nie można użyć obiektu zamiast struct? W ten sposób można zobaczyć, czy obiekt jest instancją typu bez konieczności porównywania skrótów itp.

Answer 5

Użyj Storable :: nstore, aby przekształcić go w reprezentację binarną, a następnie obliczyć sumę kontrolną (na przykład za pomocą Digest moduł).

Oba moduły to podstawowe moduły.

Answer 6

Digest::MD5->new->add(
    Data::Dumper->new([$structure]) 
    ->Purity(0) 
    ->Terse(1) 
    ->Indent(0) 
    ->Useqq(1) 
    ->Sortkeys(1) 
    ->Dump() 
)->b64digest();