perl 第一次嘗試替代bash

 前些天學習了perl 感受 perl 比較活 寫起來比較隨意

正好今天要創建幾個賬號就乾脆不用bash  嘗試一下 perl

use strict;
use warnings;

`groupadd quotagroup`;

my @user_s=map{"user".$_}(1..5);

for(@user_s){
    `userdel $_`;
}
for(@user_s){
    eval{
    `useradd -G quotagroup $_` && `echo "password"| passwd --stdin $_`;
    }
}

你們還有什麼更好的方法 或者 插件告訴告訴小弟 我是新手才學的