데이터 구조의 반복 가능한 서명을 만들려면 어떻게해야합니까?

Question

내가 데이터 구조의 서명을 생성 할 상황이 있습니다

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

가 목적이어야를하는 경우, 데이터 구조 변경 후 그래서 서명해야한다.

이렇게 할 수있는 방법이 있습니까?

Answer 1

Storable과 같은 심층 구조 직렬화 시스템을 사용하는 것이 가장 좋은 방법입니다. 동일한 데이터를 가진 두 개의 구조체가 동일한 Stable 출력을 생성하므로 비교할 수 있습니다.

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

Answer 2

찾고있는 단어가 "hashing"이라고 생각합니다.

기본적으로 데이터 구조는 상당히 고유 한 값을 생성하는 함수를 통해 데이터 구조를 지정합니다. 이 값은 서명입니다.

Answer 3

당신이 찾고있는 것이 해시 함수라고 생각합니다. 당신이 구조체 대신 객체를 사용할 수 없습니다

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

이 함수 해시 어떤 해시 함수가 될 수있는, 예를 들어, 함수 MD5 Digest::MD5

Answer 4

에서 :이 같은 접근 방식을 추천 하시겠습니까? 그런 식으로 해시 등을 비교하지 않고 객체가 유형의 인스턴스인지 확인할 수 있습니다.

Answer 5

Storable :: nstore를 사용하여 이진 표현으로 변환 한 다음 체크섬을 계산합니다 (예 : 다이제스트 기준 치수).

두 모듈 모두 핵심 모듈입니다.

Answer 6

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