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); 

希望它有帮助。