解析文本文件中的TCL和創建鍵值對的字典，其中值，以列表形式

Question

如何單獨下面的文本文件，並只保留需要的數據對應：

例如文本文件具有格式：

Name Roll_number Subject Experiment_name Marks Result 
Joy 23   Science Exp related to magnet 45 pass 
Adi 12   Science Exp electronics  48 pass 
kumar 18   Maths prime numbers   49 pass 
Piya 19   Maths number roots   47 pass 
Ron 28   Maths decimal numbers  12 fail 

解析上述信息與在字典，其中關鍵是受試者（唯一）和對應於對象的值存儲後是通學生姓名列表

Answer 1

set studentInfo [dict create]; # Creating empty dictionary 
set fp [open input.txt r] 
set line_no 0 
while {[gets $fp line]!=-1} { 
    incr line_no 
    # Skipping line number 1 alone, as it has the column headers 
    # You can alter this logic, if you want to 
    if {$line_no==1} { 
     continue 
    } 
    if {[regexp {(\S+)\s+\S+\s+(\S+).*\s(\S+)} $line match name subject result]} { 
     if {$result eq "pass"} { 
      # Appending the student's name with key value as 'subject' 
      dict lappend studentInfo $subject $name 
     } 
    } 
} 
close $fp 
puts [dict get $studentInfo] 

輸出：

Science {Joy Adi} Maths {kumar Piya}