小编Naa*_*aaz的帖子

我这里有一个文件,它有多个set语句.但是,我想提取我感兴趣的行.以下代码可以提供帮助吗？

set in [open filename r]    
seek $in 0 start    
while{ [gets $in line ] != -1} {    
    regexp (line to be extracted)
}