perl 第一次尝试替代bash

为什么80%的码农都做不了架构师？>>>   

 前些天学习了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 $_`;
    }
}

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

转载于:https://my.oschina.net/vimer/blog/140466