useraddでアカウント一括登録するPerlスクリプト

taro    pa123Sadu
Jackson o4anDex

#! /usr/bin/perl

# 下記形式のアカウント設定ファイル
# アカウント<TAB>パスワード
$PASSFILE = "account.txt";

# useraddコマンド
$USERADD_CMD = "useradd";

# ユーザーシェル
$USER_SHELL = '/sbin/nologin';

# salt
$SALT = 'a5';

open(DATAFILE, "< $PASSFILE") or die("error :$!");

while (my $line = <DATAFILE>) {
    chomp($line);
    @data = split(/\t/, $line);

    # 暗号化されたパスワード生成
    $pass = crypt(@data[1], $SALT);

    # 実行するコマンド
    $cmd = sprintf("sudo %s -s %s -p %s %s %s", $USERADD_CMD, $USER_SHELL, $pass, @data[0]);

    print "$cmd\n";

    # 実行
    system($cmd);
}