Digest :: ША и utf8

Question

У меня есть utf8 данные, которые я прохожу переваривать :: SHA по следующим образом:

my $sha1=Digest::SHA->new; 

foreach (@fields) { $sha->add($record)  } 
     print $sha1->hexdigest; 

, но я получаю неожиданное поведение и каждый раз, когда я получаю разные переваривать для той же самой записи я читать дальше http://metacpan.org/pod/Digest::SHA, что есть побочные эффекты использования Digest УВХ с UTF8 я пытаюсь следующий metigation но и не работает:

{use bytes; 

foreach (@fields) { $sha->add($record)  } 
     print $sha1->hexdigest; 
} 

и

use Encode qw(encode_utf8); 
    foreach (@fields) { $sha->add((encode_utf8($record))  } 
     print $sha1->hexdigest; 

любая помощь будет признательна.

Answer 1

Не видя ваши фактические данные (например, use Data::Dumper; $Data::Dumper::Useqq=1; print Dumper $record;) и что вы ожидаете от SHA, это очень сложно.

Это говорит, вы можете найти самый простой способ, чтобы получить последовательный алгоритм SHA, чтобы заставить кодировку JSON для вывода только ASCII и убедитесь, что он всегда ставит хэш-элементы в последовательном порядке:

use JSON; 
$serialized = JSON::to_json($data_structure, { 'ascii' => 1, 'canonical' => 1 });