Извлечение строки из файла с Tcl

Question

У меня есть файл index.txt, который содержит имя компьютера [сказать Темп [0] и т.д.] и производительности параметр [говорят] 2.3 и т.д., расположенных в виде таблицы, как

PC Memory Processor Bus Performance . 

Я хочу, чтобы tcl-файл извлекал только строковые ПК и значения производительности.

Пожалуйста, дайте мне совет.

Answer 1

Вам понадобится пакет textutil::split от tcllib.

package require textutil::split 
set fid [open index.txt r] 
while {[gets $fid line] != -1} { 
    lassign [textutil::split::splitx $line] pc memory processor bus performance 
    puts "$pc $performance" 
} 

Если вы не хотите использовать tcllib, вы можете сделать это:

while {[gets $fid line] != -1} { 
    set words [regexp -all -inline {\S+} $line] 
    if {[llength $words] == 7} { 
     puts "[lindex $words 0] [lindex $words 4]" 
    } 
}