Выберите некоторые строки из файлов

Question

Я пишу сценарий tcl, который читает из файла и отображает определенные строки из этого файла. Я могу читать из файла n проблемы, но я не могу понять, как выбрать определенные строки, прежде чем фильтровать то, что мне не нужно. Я читаю файл в списке, а затем используя следующий код, чтобы отфильтровать его;

proc listFromFile {/.../.../.../file_test.file} { 
set f [open /.../.../.../file_test.file r] 
set data [split [string trim [read $f]]] 
close $f 
return $data 
} 
set f [listFromFile /.../.../.../file_test.file] 
set f [lsort -unique $f] 
set f [lsearch -all -inline $f "test_*" 

Строки внутри файла выглядеть

$(eval $(call CreateUvmTest, other, test_runtest1 ... 
$(eval $(call CreateUvmTest, KEYWORD, test_runtest2 ... 
$(eval $(call CreateUvmTest, KEYWORD, test_runtest3 ... 
$(eval $(call CreateUvmTest, other, test_runtest4 ... 

Как бы выделить строки, содержащие KEYWORD в целом, прежде чем я отфильтровывать все остальное мне не нужно? Строки, содержащие KEYWORD, случайным образом находятся внутри файла вместе с другими тестами. Возможно ли это вообще?

Answer 1

Это не должно быть сложно. Начнем с того, вы, вероятно, хотите разделить содержимое файла на разрывы строк:

set data [split [string trim [read $f]] \n] 

Когда вы сделаете это, вы могли бы использовать ряд методов, чтобы выбрать строки, которые вы хотите, например,

lsearch -all -inline $data *KEYWORD* 

Документация: lsearch, read, set, split, string

Answer 2

я бы сильно рассмотреть

set lines [split [exec grep -Fw KEYWORD file_test.file] \n] 

В противном случае

proc select_lines {filename keyword} { 
    set fid [open $filename r] 
    while {[gets $fid line] != -1} { 
     if {[string match "*$keyword*" $line]} {lappend lines $line} 
    } 
    close $fid 
    return $lines 
} 
set lines [select_lines file_test.file KEYWORD]