hmac sha-256 in perl

Question

这个php代码的perl等价物是什么？

$hash = hash_hmac('sha256', $all , $secret);

我尝试使用以下代码，但徒劳无功。值不同。

use Digest::SHA;
$sha = Digest::SHA->new('sha256');
$sha->add($secret);
$sha->add($all);
$digest = $sha->hexdigest;

问候帕万

Answer 1

由于我的问题获得的浏览量比我预期的要多，我决定回答它以帮助其他人解决同样的问题。我在 PHP 中找到了它的等效项。

use Digest::SHA qw(hmac_sha256_hex); 
$digest=hmac_sha256_hex($all, $secret);

希望对您有所帮助。