• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>

    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>

            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            

    
            

            




            







												


        




            
	
		
		
            

隨筆-159 
評論-223 
文章-30 
trackbacks-0

            
	

            

            
	
					


            
	
	
            腳本概述
               當需要在很多（比如幾十至幾百）臺機器上編譯同一程序時，如果一個個地手工拷貝源碼、再編譯，那么效率就很低，為了能大量節省手工、并行地編譯，因此寫了一個腳本，該腳本基于自動化腳本語言expect（expect基于tcl）實現，基本原理是針對每個遠程主機，創建一個子進程，在該子進程內先調用scp拷貝源碼到遠程主機，再用ssh登錄到遠程主機、發送cd、configure和make命令，交互期間的命令輸出多用正則分析，最終的編譯輸出保存到當前目錄output子目錄下。其命令行參數說明如下：
               ● 第1參數為遠程主機配置文件：一個多行文本文件，每行格式為IP 用戶名 密碼，空格符分隔，支持#注釋。
               ● 第2參數為本地主機源碼目錄：要求該目錄存在Makefile和configure文件。
               ● 第3參數為遠程主機目標目錄：用于存放源碼的位置。

            腳本實現
               拷貝源碼
            

            

            

            

             1proc copy_file {host user srcdir dstdir passwd {to 10} } {
             2    if [catch "spawn scp -rq $srcdir $user@$host:$dstdir" msg] {
             3        send_error "failed to spawn scp: $msg\n"
             4        exit 1
             5    }
             6    
             7    set timeout $to
             8    expect_after eof { 
             9        send_error "$host scp died unexpectedly\n"
            10        exit 1
            11    }
            12    expect {
            13        "(yes/no)?" { send "yes\r"; exp_continue }
            14        -re "(?:P|p)assword:" { send "$passwd\r" }
            15        timeout { do_timeout "$host scp" }
            16    }
            17
            18    expect {
            19        full_buffer { exp_continue }
            20        timeout { exp_continue }
            21        eof 
            22    }
            23}
            

               第2行調用spawn命令執行scp命令，并用catch捕捉錯誤；當執行成功后，第12行用expect等待遠端輸出（超時默認為10秒），第13、14行自動輸入用戶名和密碼，當過程中網絡連接斷開時，會匹配到第8行的eof；當輸出完成連接關閉時，會匹配到第21行的eof；如果輸出太多超過expect內部的buffer時，會匹配到第19行的full_buffer，這里由于為了提高效率，使用了靜默方式的scp，因些實際會匹配到第20行的timeout，不管匹配到哪種情況，都要繼續直到eof。
             
               執行編譯
            

            

            

            

            

             1proc do_make {host user passwd subdir {to 10} } {
             2    if [catch {spawn ssh $user@$host} msg ] {
             3        send_error "failed to spawn ssh: $msg\n"
             4        exit 1
             5    }
             6    
             7    set timeout $to
             8    expect_after eof { 
             9        send_error "$host ssh died unexpectedly\n"
            10        exit 1
            11    }
            12    
            13    expect {  
            14        "*yes/no" { send "yes\r"; exp_continue }
            15        -re "(?:P|p)assword:" { send "$passwd\r" }  
            16        timeout { do_timeout "$host ssh" }
            17    }  
            18    wait_cmd $spawn_id passwd
            19
            20    send "cd $subdir\r"  
            21    wait_cmd $spawn_id cd
            22    
            23    send "source configure\r"
            24    wait_cmd $spawn_id configure
            25
            26    send "make\r"  
            27    wait_cmd $spawn_id make
            28
            29    send "exit\r"  
            30    expect eof  
            31}
            

               關于spawn和expect的解釋與上節拷貝源碼相同，不同的是依次發送命令cd、source configure、make，每個命令須等到命令提示符后（調用自定義函數wait_cmd）再發下一個，最后發送exit退出ssh、導致連接關閉，匹配到最后一行的eof。對于有的項目源碼，可能沒有或不用配置，那么configure文件可以不存在或內容為空，如果不存在導致報錯也沒關系，不影響make；如果configure出錯，那么make也會出錯。這里使用source是為了使配置在當前shell中生效。
               
               主循環
            

            

            

            

            

             1set f [open $file r]
             2set curtime [clock seconds]
             3
             4log_user 0
             5set s {[:blank:]}
             6set pattern "^(\[^#$s]+)\[$s]+(\[^$s]+)\[$s]+(\[^$s]+)"
             7
             8while { [gets $f line] != -1 } {
             9    if { ![regexp $pattern [string trimleft $line] ? host user passwd] } {
            10        continue
            11    }
            12    send_user "$host $user $passwd\n"
            13    if { ![fork] } {
            14        
            15        set filename output/${host}_[clock format $curtime -format %y.%m.%d_%H.%M.%S].log
            16        log_file -noappend -a $filename
            17
            18        copy_file $host $user $srcdir $dstdir $passwd 30
            19        do_make $host $user $passwd $subdir 30
            20
            21        send_user "$host finish\n"
            22        exit
            23    }
            24}
            

               打開遠程主機配置文件，讀取每一行直到文件尾，忽略注釋行，用正則提取IP、用戶名和密碼，創建子進程，按IP和當前時間命名log文件（由于前面調用log_user 0關閉了控制臺輸出，因此為了能記錄輸出到日志文件，一定要加-a選項），最后調用函數copy_file和do_make。
               
               完整腳本下載：autobuild.zip
            
	
            posted on 2016-09-28 11:04 春秋十二月 閱讀(3850) 評論(0)  編輯 收藏 引用  所屬分類: System 
            

            







            
	    
    




            






            

				

            






    
    







            
	   
	



高清免费久久午夜精品|
国内精品九九久久精品
|
精品99久久aaa一级毛片|
精品久久久一二三区|
久久亚洲AV永久无码精品|
久久99九九国产免费看小说|
色88久久久久高潮综合影院|
日韩亚洲欧美久久久www综合网|
欧美亚洲色综久久精品国产|
久久九九精品99国产精品|
久久国产精品-久久精品|
国产福利电影一区二区三区久久久久成人精品综合
|
亚洲国产精品无码久久青草|
国内精品久久久久影院薰衣草|
少妇精品久久久一区二区三区|
久久久久久久久久久久中文字幕
|
99久久www免费人成精品|
久久影视综合亚洲|
久久精品天天中文字幕人妻|
国产精品久久久久天天影视|
久久久久久国产a免费观看不卡|
久久综合给合久久国产免费|
99久久精品免费看国产一区二区三区|
久久久久免费视频|
性欧美大战久久久久久久久|
国产伊人久久|
日韩亚洲欧美久久久www综合网|
国产A级毛片久久久精品毛片|
国产精品18久久久久久vr|
亚洲欧洲精品成人久久曰影片|
国产一区二区三区久久|
日批日出水久久亚洲精品tv|
99久久精品免费观看国产|
久久99精品久久久久久久不卡
|
久久精品免费观看|
一本一本久久a久久精品综合麻豆|
99久久99久久精品国产片|
狠狠色丁香久久婷婷综|
男女久久久国产一区二区三区|
超级97碰碰碰碰久久久久最新|
久久99精品久久久久久不卡|