Дайджест SHA256 в Perl

Мне нужно выполнить хеширование SHA256 адресов электронной почты, и мне нужен результат в виде строки.

Я попробовал следующее:

  use Digest::SHA qw(sha256);
  my $data = 'swaranga@gmail.com';
  my $digest = sha256($data);

  print $digest;

Но он печатает что-то вроде:

B/D6i1μû^Þ©Q;¢Þ

Мне нужен следующий вывод:

cbc41284e23c8c7ed98f589b6d6ebfd6

Приведенный выше хэш генерируется с использованием генератора SHA256 Apache DigestUtils.

Что я делаю не так? Я новичок в Perl, так что извините, если что-то глупо.

Спасибо.

10
задан Ωmega 24 September 2012 в 14:18
поделиться