• <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 
            

            







            
	    
    




            






            

				

            






    
    







            
	   
	



亚洲欧美另类日本久久国产真实乱对白
|
伊人色综合久久|
久久久91精品国产一区二区三区|
91久久香蕉国产熟女线看|
久久er国产精品免费观看8|
久久久久久久久久久久久久|
久久免费的精品国产V∧|
久久国产视屏|
久久久久久久人妻无码中文字幕爆
|
欧美性大战久久久久久|
亚洲AV无码久久|
久久久久成人精品无码|
久久久久女人精品毛片|
久久国产美女免费观看精品|
国产亚洲色婷婷久久99精品|
亚洲国产成人久久精品99|
7777久久亚洲中文字幕|
久久午夜免费视频|
99久久99久久精品国产|
久久99精品久久久久久久不卡|
三级韩国一区久久二区综合|
97精品国产97久久久久久免费
|
国产ww久久久久久久久久|
三上悠亚久久精品|
区亚洲欧美一级久久精品亚洲精品成人网久久久久|
亚洲中文字幕无码久久精品1|
久久久久国产视频电影|
嫩草影院久久99|
无码人妻久久一区二区三区免费
|
久久青青草原综合伊人|
色婷婷综合久久久久中文一区二区
|
久久久久久伊人高潮影院|
久久综合伊人77777|
免费国产99久久久香蕉|
久久91精品国产91久久麻豆|
2022年国产精品久久久久|
狼狼综合久久久久综合网|
人妻无码久久一区二区三区免费
|
久久久久亚洲AV成人片|
少妇久久久久久久久久|
久久精品国产亚洲AV嫖农村妇女|