在文件中搜索单词＆amp;然后在Tcl中打印它旁边的值

Question

我有以下文本文件：

 ..............................................
 ..............................................
 ..............................................
 ..............................................
 xyz (MTU)                             301.2017

我尝试了以下内容：

set fd [open "textfile.file" r]
set data [read $fd]
set input_list [split $data "\n"]
set pattern [lsearch -all -inline $data "xyz (MTU)*"]
foreach elem $pattern{
    puts "[lindex $elem 3]"
} 

但是它给出了空白输出？

Answer 1

问题在于线的起点有一个空格。如果我在模式的开头添加一个空格，它可以工作：

% set pattern [lsearch -all -inline -glob $input_list " xyz (MTU)*"]
{ xyz (MTU)                             301.2017}