公司大批量添加×××用户,如果一个一个添加手就脱臼了  ...

 

  主配置文件change.conf大体如下:

li.jie      pptpd       Li.jiE    192.168.1.1

dong.zhuo   pptpd       Dong.zhuO 192.168.1.2

.... ......

姓.名      服务名       姓.名(首大写,尾大写)  192.168.1.X

将员工的名字写到一文件中.name

li.jie

dong.zhuo

zhang.ye

再附上脚本:

脚本写的挺菜得,高手见笑了...

 
  

 
  
 
  
  1. #!/usr/bin/perl -w 
  2. use warnings; 
  3. use strict; 
  4. =pod 
  5. print << `EOC`; 
  6. echo "......." 
  7. echo "pptpd...." 
  8. EOC 
  9. =cut 
  10. open CONF,"change.conf" or die "change.conf:$!\n"; 
  11. open NAME,"name" or die "name:$!\n"; 
  12. open FILE,">>change.conf" or die " >> change.conf:$!\n"; 
  13. chomp (my @name = <NAME>); 
  14. chomp (my @conf = <CONF>); 
  15. my @num; 
  16. foreach (@conf){ 
  17.         $_ =~ m/.*(?:\d+\.){3}(\d+)/; 
  18.         push(@num,$1); 
  19. } 
  20. my $num = $num[-1]; 
  21. my $IP = "192.168.1."; 
  22. foreach my $name(@name){ 
  23.         my $str = $name; 
  24.         $num ++; 
  25. #       $name =~ s/(\w)(\w+\.\w+)(\w)/\U$1\L$2\U$3/; 
  26.         $name .= uc(chop $name); 
  27.      print FILE "$str\tpptpd\t\"\u$name\"\t${IP}${num}\n" if (!(grep {/$str/i}@conf)); 
  28. }