Perlでshadowパスワードをつくる

fujiwara: linuxがあれば
fujiwara: perlで crypt("foo", '$6$SALT')
fujiwara: SALTの部分はランダムに
fujiwara: でsha512のhashが生成できます
fujiwara: $1$SALTならmd5
fujiwara: macだとcryptが対応してなくてできないんですよね
fujiwara: Crypt::Passwd::XSというモジュールもありますが

とのことなので、Crypt::Passwd::XSでやる。

use strict;
use warnings;
use Crypt::Passwd::XS;

my $plaintext = 'secret';
my $salt      = '$6$1234';

print +Crypt::Passwd::XS::crypt( $plaintext, $salt );