自己寫了個(gè)小腳本.用于生成chkconfig所使用的命令.詳見正文

q48775533q

在linux ,每次關(guān)閉服務(wù),或者是修改服務(wù),都比較麻煩.
都是從chkconfig --list整理
所以弄個(gè)小腳本 來生成chkconfig的命令.
也就是說.第一次整理好了之后.使用這個(gè)腳本生成命令,把生成的命令用于其他系統(tǒng)即可.

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. # 在操作系統(tǒng)執(zhí)行
   
9. # chkconfig --list
   
10. # 修改腳本 filename 變量為這個(gè)文件即可
    
11. 
    
12. # 載入模塊
    
13. use strict;
    
14. use Cwd;
    
15. 
    
16. # 文本文件
    
17. my $filename = "C:\\1.TXT";
    
18. 
    
19. # 用于存放數(shù)組,用于后續(xù)的比較
    
20. my ( @argv1, @argv2 );
    
21. 
    
22. # 臨時(shí)變量,用于存放運(yùn)行級(jí)別
    
23. my $level;
    
24. 
    
25. # 臨時(shí)變量,用于自增,和行存儲(chǔ)
    
26. my ( $i, $line );
    
27. 
    
28. # 服務(wù)名稱
    
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 為空,進(jìn)入下一次循環(huán)
    
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;
    

復(fù)制代碼

iamlimeng

支持原創(chuàng)！