在/etc/shadow中如何生成加密的密码字符串?

我试图模仿在/etc/shadow中出现的密码字符串的创建。

这是我目前得到的,但是当我使用相同的密码和相同的盐时,加密的密码不匹配。

我是用Perl做的,这是相关的主题:

($pass, $salt) = @ARGV;

unless(defined($salt)) {
    $salt = MIME::Base64::encode(random_bytes(12), '');
}

for $i (1 .. 4999) {
    $pass = Digest::SHA::sha512($salt, $pass);
}

say "";

print '$6$', $salt, '$', Digest::SHA::sha512_base64($salt, $pass), "\$\n";