perl - 在 Perl 中生成有效的 Unix 用户名和密码

Question

为了在 Unix 系统上创建用户，我需要生成一对用户名和密码，最好是难以猜测的一对(出于安全考虑)。有谁知道使用 Perl 执行此操作的任何好方法？

更新

所以我结合了下面的一些答案并做了一些我自己的事情，这就是我最终得到的。现在这些生成的用户名和密码有点神秘而且不容易记住，这正是我一直在寻找的。但是，如果您正在寻找更具可读性的生成，则必须根据自己的喜好对其进行调整。

use String::Random qw(random_regex);
use Data::Random::WordList;
my $user = random_regex('\w{3,6}\d{3,6}\w{3,7}') . time . int(rand(1000)); 
my $wl = new Data::Random::WordList( wordlist => '/usr/share/dict/words' );
my @rand_words = $wl->get_words(int(rand(3)) + 3);
$wl->close();
my $pass = join " ", @rand_words;
$pass .= ' ' . int(rand(1000)) . time;
my $crypt_pass = crypt($pass,'salt');

system "useradd -p $crypt_pass $user";

#you can now login with $user and $pass on your system

Answer 1

用于生成密码您可以使用:

$password = `date | md5sum | fold -w 10 | head -n 1`;
$password = crypt($password,'some_string');

它实际上比 Perl 更像 Bash，但它完成了工作。