/etc/passwd から useradd コマンドを生成する Perl ワンライナー

• /etc/group から groupadd コマンドを生成する。

$ perl -lanF':' -e 'print "groupadd -g $F[2] $F[0]"' /etc/group
groupadd -g 501 oinsatll
...

• /etc/passwd から useradd コマンドを作成する。

$ perl -lanF':' -e 'print "useradd -u $F[2] -g $F[3] -d $F[5] $F[0]"' /etc/passwd
useradd -u 501 -g 501 -d /home/oracle oracle
...