使用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文件$用戶」不過，我得到一個密碼轉換失敗的錯誤。

任何幫助，將不勝感激

Answer 1

我相信，因爲你沒有擁有它從來沒有完全接受新密碼換行符。這就像你鍵入它在但從未回車。

Expect通常用於這樣的，我相信提示。