TCL脚本实例+检查IP的脚本源码.doc

TCL脚本实例: 检查IP的脚本 1 脚本源码 本脚本系谭勇书写运行结果如下:rootMeil89 bin# ./IP.tcl -f ./cfg/ip_R2.6.0_DRM.cfg= Ping 3 failed! = Ping 6 failed! = Ping 7 failed! = Ping 9 failed! = Ping 6 failed! = Ping 7 failed! = Ping 9 failed! = Ping 1 failed! =invalid IP 10.56.53/31Invalid ip string: 10.56.53/31!= Totally 52 ping successfully as below: 0 1 2 6 0 1 2 3 8 1 2 5 8 1 2 5 6 2 00 01 0 1 2 3 8 1 2 5 8 1 2 5 6 0 0 1 3 4 0 1 7 8 0 1 0 3 7 8 0 0 0 1= Can not ping 8 host as below: 3 6 7 9 6 7 9 1rootMeil89 bin# rootMeil89 bin# ./IP.tcl ping 1-70= Ping 3 failed! = Ping 4 failed! = Ping 7 failed! = Totally 17 ping successfully as below: 1 2 5 6 8 9 0 1 2 3 4 5 6 7 8 9 0= Can not ping 3 host as below: 3 4 7rootMeil89 bin# 今后我们将对这个脚本进行学习.# !/usr/bin/tclsh# !/bin/bash# exec tclsh $0 $set auto_path lappend auto_path file dirname info script ./libpackage require ftppackage require Expectset Usage Usage: n ttclsh $argv0 -f iplist.cfg ?blockn ttclsh $argv0 ping startIp-endIpn ntExample: n tttclsh $argv0 -f iplist.cfg CMS n tttclsh $argv0 ping 0-65n # Define the global variablesset failPing set pingSuccess set flag noset ipListFile set ipBlock set ipList set tmpArgv split string trim join $argv if llength $tmpArgv = 2 set flag lindex $tmpArgv 0 if lindex $tmpArgv 0 = -f set ipListFile lindex $tmpArgv 1 if llength $tmpArgv = 3 set ipBlock lindex $tmpArgv 2 elseif string equal -nocase $flag ping lappend ipList list NULL lindex $tmpArgv 1 else puts $Usage exit else puts $Usage exit# Get the host listif $ipListFile != if $ipBlock = set listBlock getProfile $ipListFile ALL else set listBlock $ipBlock foreach block $listBlock if string equal -nocase $block error | string equal -nocase $block args continue set listKey getProfile $ipListFile $block ALL ONLY_KEY # Insert the key to the ipList like: blockName KeyName foreach key $listKey if string equal -nocase $key error continue lappend ipList list $block $key # Handle each listforeach ip_list $ipList set block lindex $ip_list 0 set ipStr lindex $ip_list 1 set ipKey $ipStr if $block != NULL set ipStr getProfile $ipListFile $block $ipKey if string equal -nocase $ipStr error continue # Get the IP according to the ipStr if set g_ipList GetIP $ipStr = -1 puts Invalid ip string: $ipStr! continue # Ping the IP set result # BadIp: set num 0 foreach ip $g_ipList # Ping the host if PingHost $ip 1 != 0 lappend failPing $ip incr num regexp (0-9+).(0-9+).(0-9+).(0-9+) $ip - p1 p2 p3 p4 append result $p4 puts = Ping $ip failed! = else lappend pingSuccess $ip #puts = Ping $ip successfully! = # Write the result if $block != NULL if $num = 0 set result # OK set tmpStr format %-30s%s string trimright $ipStr $result setProfile $ipListFile $block $ipKey $tmpStr if llength $pingSuccess = 1 puts n= nTotally llength $pingSuccess