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 $_`;
    }
}

你们还有什么更好的方法 或者 插件告诉告诉小弟 我是新手才学的