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

概要

centOSでアカウントを一度に登録したいときが必ず一度はありますよね。
useraddを使おうと思いますが、パスワードの指定は-pオプションでできるのですが、暗号化された文字列出ないと登録できないようです。
そこで、今回perlのcrypt関数で登録できるスクリプトを作成しました。

実行方法

perl uadd.pl

ファイル構成

account.txt

アカウント設定ファイル。アカウントと平文のパスワードをタブ区切りで記述します。

uadd.pl

プログラム本体

account.txt(sample)

taro	pa123Sadu
Jackson	o4anDex

uadd.pl

# ! /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);
}