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

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

腳本實現
   拷貝源碼

1

proc 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。

執行編譯

1

proc 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中生效。

   主循環

1

set f [open $file r]
2

set curtime [clock seconds]
3

4

log_user 0
5

set s {[:blank:]}
6

set pattern "^(\[^#$s]+)\[$s]+(\[^$s]+)\[$s]+(\[^$s]+)"
7

8

while { [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 春秋十二月閱讀(3858) 評論(0) 編輯收藏引用所屬分類: System

只有注冊用戶登錄后才能發表評論。
【推薦】100%開源！大型工業跨平臺軟件C++源碼提供，建模，組態！

相關文章: Windows異常分發與子系統圖表集 -- 摘自Windows內核原理與實現淺談Linux共享庫庫函數掛鉤檢測 kretprobe探究思考基于Rust構建WebAssembly 基于VSS可傳輸卷影拷貝的備份架構 Shell（11）: 創建和刪除so庫軟鏈接關于make依賴文件的自動生成 Shell應用（10）：支持開源庫編譯的Makefile Shell應用（9）：自動化批量編譯一種攔截Linux動態庫API的方法及裝置

網站導航: 博客園 IT新聞 BlogJava 博問 Chat2DB 管理

本博客所有隨筆均為原創，因為不定期維護更新，所以轉載請注明出處，如有問題和建議，請留言或評論，發表您的寶貴意見，藉此平臺以分享交流、共同進步。 聯系方式：微信math-engineer

<

2012年6月

>

日

一

二

三

四

五

六

27

28

29

30

31

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

1

2

3

4

5

6

7

常用鏈接

留言簿(79)

隨筆分類(161)

隨筆檔案(162)

文章分類(30)

詩詞作品集(30)

關注的開源項目

LLVM
編譯系統
nginx
高性能Web服務器
OpenSSL
密碼學庫
suricata
網絡IPS引擎

積分與排名

積分 - 420454
排名 - 56

青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品

常用鏈接

留言簿(79)

隨筆分類(161)

隨筆檔案(162)

文章分類(30)

關注的開源項目

最新隨筆

積分與排名

最新評論

閱讀排行榜

評論排行榜