摘要：
cd /home/Desktop/Blset files [glob *]set sofar 0foreach f $files {## start to read in the file name set sofar 0 set fhandle [open [file join /home/Desktop/Bl/ $f] r] while {[gets $fhandle lyne] > -1} { incr sofar if {[regexp "files" $lyne ] >0 } { puts "The file $f has the keywo 阅读全文
posted @ 2011-04-28 14:13
greencolor
阅读(133)
评论(0)
推荐(0)
浙公网安备 33010602011771号