使用Perl脚本修改Mac用户密码

Question

我希望能够使用Perl脚本更改用户的密码。我试过:

my $user = "test";
my $pass = "testing";
open(DATA, "| passwd $user") || die "failed";
print DATA $pass;
sleep(1);
print DATA $pass;
close(DATA);

它永远不会通过。

我也尝试了' echo -e "$passn$pass" | passwd $user"但是，我收到一个密码转换失败的错误。

如有任何帮助，不胜感激

Answer 1

我认为由于您没有换行符，它永远不会完全接收到新密码。就像你输入了它，但没有按回车键。

Expect通常用于这样的提示。