ユーザーの大量追加

で、今度はユーザーの追加
自分としてはnewusersコマンドでは、/etc/skelが困るので、perlで作ってしまう。

で、newusersファイルで拵えておいて、そいつを標準入力(STDIN)から読み込ませて、追加する

#!/usr/bin/perl
while($_=<STDIN>){
chomp;
chomp;
($uname,$password,$uid,$gid,$gecos,$udir,$sh)=split(/:/);

`useradd -g \"$gid\" -d \"$udir\" -c \"$gecos\" -m \"$uname\" -u \"$uid\" -s \"$sh"`;
open(CMD, "| chpasswd > /dev/null");
print CMD "$uname:$password\n";
close CMD;
}
exit;

こんな感じですね。
追加するときは
コマンド名< newusers.text
な感じです。