自己写了个小脚本.用于生成chkconfig所使用的命令.详见正文

q48775533q

在linux ,每次关闭服务,或者是修改服务,都比较麻烦.
都是从chkconfig --list整理
所以弄个小脚本 来生成chkconfig的命令.
也就是说.第一次整理好了之后.使用这个脚本生成命令,把生成的命令用于其他系统即可.

perl刚刚开始接触,并不是非常精通. 有大神看到了.欢迎修改.

勿喷!!!!!

1. #!/usr/bin/perl
   
2. #----------------------------------------------
   
3. # 用于生成chkconfig命令
   
4. # date:2013-04-23 15:00
   
5. # 作者: 王帅
   
6. # QQ:wangshuai@hxage.com
   
7. # QQ: 48775533
   
8. # 在操作系统执行
   
9. # chkconfig --list
   
10. # 修改脚本 filename 变量为这个文件即可
    
11. 
    
12. # 载入模块
    
13. use strict;
    
14. use Cwd;
    
15. 
    
16. # 文本文件
    
17. my $filename = "C:\\1.TXT";
    
18. 
    
19. # 用于存放数组,用于后续的比较
    
20. my ( @argv1, @argv2 );
    
21. 
    
22. # 临时变量,用于存放运行级别
    
23. my $level;
    
24. 
    
25. # 临时变量,用于自增,和行存储
    
26. my ( $i, $line );
    
27. 
    
28. # 服务名称
    
29. my $name;
    
30. 
    
31. open( FILE, $filename ) || die "open file failed.";
    
32. while ( $line = <FILE> ) {
    
33.         chomp $line;
    
34.         $line =~ s/\s+/,/g;
    
35. 
    
36.         # 如果$line 为空,进入下一次循环
    
37.         next unless $line;
    
38.         $level = 0;
    
39.         for ( $i = 2 ; $i < 8 ; $i++ ) {
    
40.                 @argv1 = split( ",", $line );
    
41.                 $name  = $argv1[0];
    
42.                 @argv2 = split( ":", $argv1[$i] );
    
43.                 if ( "$argv2[1]" eq "off" ) {
    
44.                         $level = "$level" . "$argv2[0]";
    
45.                 }
    
46.         }
    
47. 
    
48.         print "/sbin/chkconfig --level " . "$level" . " " . "$name" . " " . "off"
    
49.           . "\n";
    
50. 
    
51. }
    
52. close FILE;
    

复制代码

iamlimeng

支持原创！