使用tcl脚本输出log文件中所有“searching”的行,并写入到新的log中
set fid [open "../tmp4sdc/log" r]
set wfid [open "../tmp4sdc/log_output" w]
while {
![eof $fid]} {
gets $fid myline
if {
[string match
使用tcl脚本输出log文件中所有“searching”的行,并写入到新的log中
set fid [open "../tmp4sdc/log" r]
set wfid [open "../tmp4sdc/log_output" w]
while {
![eof $fid]} {
gets $fid myline
if {
[string match