# 讀取 act-list.txt
# 準備用來大量建帳號及設密碼
open(F, "$file") || die "$!\n";
while (my $line = <F>) {
chomp $line;
# 取得每一列的資料, 並分離出帳號及密碼
my ($act, $pwd) = split /:/ , $line;
# 偵錯用
# print "$act ===> $pwd \n";
# 用 adduser 指令建帳號
system("adduser $act");
^^^^ ^^^^^
print "$act 帳號已建立!\n";
}
這是我在網路(http://linux.tnc.edu.tw/techdoc/perl_intro/c1355.html)上截取的某一段程式碼...
這裡我有一個地方不太懂....就是perl丫他是有adduser這個指令嗎(我想應該不是)那他是怎麼叫出系統裡的adduser呢...還是說前面那個system就是perl裡面其中一個函數可以將系統裡的指令給叫出來...可否講解一下...謝謝
