给TCL/expect脚本加公共函数处理结果（一）

  在用expect写一个自动完成远程网络设备管理脚本的时候，发现TCL脚本自带的处理结果功能还不够，于是自己根据遇到的情况添加了部分函数，可以方便的处理expect返回的远程结果，

  ps，这个公用函数库与运行脚本的位置在前一篇文章中已经介绍过，这里的内容也就是commonlib.exp中的内容

 

1， get result (line-row)-(line-row)
这个函数返回以(起始行，起始列)-（结束行，结束列）的结果
eg： get_log_linerow $lines 1 2 3 4
     返回$lines中第一行第二列到第三行第四列的值

还需判断起始行结束行的大小~

proc get_log_linerow {lines _s_line _s_row _e_line _e_row} { set results {} set _r_list [split $lines "/n"] if {$_s_line==$_e_line} { set line [lindex $_r_list [expr $_s_line-1]] set results [string range $line [expr $_s_row-1] [expr $_e_row-1]] } else { set _line_num 0 foreach line $_r_list { incr _line_num if {$_line_num==$_s_line} { append results [string range $line [expr $_s_row-1] end] append results "/n" } elseif {$_line_num>$_s_line && $_line_num<$_e_line} { append results $line append results "/n" } elseif {$_line_num==$_e_line} { append results [string range $line 0 [expr $_e_row-1]] } } } return $results }

 

2，#get result (line-mark)-(line-mark)

大致同1，不过不再是从行的列数开始，而是给定标记，

eg： get_log_linemark $lines 1 "mm" 2 "kk"

返回第一行从mm开始到第二行kk结束的地方，否则返回Unfind

proc get_log_linemark {lines _s_line _e_line _s_mark _e_mark} { set results {} set _s_mark [adjust $_s_mark] set _e_mark [adjust $_e_mark] set _r_list [split $lines "/n"] if {$_s_line==$_e_line} { set line [lindex $_r_list [expr $_s_line-1]] if {[regexp -nocase -- "${_s_mark}(.*)${_e_mark}" $line total res]==0} { set results "Unfind" } else { set results ${res} } } else { set _line_num 0 foreach line $_r_list { incr _line_num set res {} set total {} if {$_line_num==$_s_line} { if {[regexp -nocase -- "${_s_mark}(.*)$" $line total res]==0} { return "Unfind" } append results ${res} append results "/n" } elseif {$_line_num>$_s_line && $_line_num<$_e_line} { append results $line append results "/n" } elseif {$_line_num==$_e_line} { if {[regexp -nocase -- "^(.*)${_e_mark}" $line total res]==0} { return "Unfind" } append results ${res} } } } return $results }

 

3，#get result (mark)-(mark)

返回结果中，从mark开始到另一个mark结束的地方

eg， get_log_mark $lines "kk" "mm"

返回$lines中从"kk"开始到"mm"结束的地方,否则返回Unfind

其中"$$"表示行尾，"^^"表示行首

#get result (mark)-(mark) proc get_log_mark {lines _s_mark _e_mark} { set results {} set _s_mark [adjust $_s_mark] set _e_mark [adjust $_e_mark] if {$_e_mark=="$$"} { set _r_list [split $lines "/n"] set _line_num 0 foreach line $_r_list { if {[regexp -nocase -- ${_s_mark} $line]==1} { if {[regexp -nocase -- "${_s_mark}(.*)$" $line total res]==0} { set results "Unfind" } else { set results ${res} } return $results } } } if {$_s_mark=="^^"} { set _r_list [split $lines "/n"] foreach line $_r_list { if {[regexp -nocase -- "^(.*)${_e_mark}" $line total results]==1} { return $results } } } if {[regexp -nocase -- "${_s_mark}(.*)${_e_mark}" $lines total results]==0} { return "Unfind" } return $results

 

4，#get result (line-words)

返回标志行中的指定单词，发现这个最好用了~~

eg，get_log_line $lines 3

返回第三行

get_log_line  $lines 3 1 2 3

返回第三行前3个单词

get_log_line $lines "kk"

返回第一次含有kk的行

get_log_line $lines "kk" 1 2 3

返回第一次含有kk行的前三个字符

#get result (line-words) proc get_log_line {lines linenum args} { set results {} if {[catch {expr ${linenum}/1} out]==0} { set line [exec echo $lines | awk "NR==$linenum {print}"] } else { if {[string length $linenum]==1} { if {$linenum=="^"} { return "Unfind" } } else { if {[string range $linenum 0 1]=="^^"} { return "Unfind" } } if {[string range $linenum 0 0]=="^"} { set line [string range $linenum 1 end] } else { set line $linenum } set tmp [get_log_mark $lines $linenum "$$"] if {$tmp=="Unfind"} { return "Unfind" } append line $tmp } if {[llength $args]==0} {return $line} foreach i $args { set tmp_result [exec echo $line | awk "{print $$i}"] lappend results $tmp_result } return $results }