使用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“$ pass \ n $ pass”| passwd $ user“但是，我收到密码转换失败错误。

任何帮助将不胜感激

Answer 1

我相信，由于你没有换行符，它永远不会完全收到新密码。这就像你输入它但从未点击进入。

Expect经常被用于这样的提示。我相信。