TCL排序文件數學

Question

我有有多條線路像一個文件： -

A B A 10 20 

A B A 10 20 

C D A 10 15 

A B Q 15 20 

A B A 35 45 

A B A 15 20 

C D A 10 15 

A B A 20 25 

. 

. 

. 

A A A x1 y1 

前三的Fileds一些文本模式。

現在我想要寫在TCL一個程序做以下兩項： -

1. 做了獨特的排序「排序-u」爲文件& reoves重複線&轉儲O/P在新文件中。
2. 對於前三個字段相同的情況，只轉儲那些數字大於10的行。

對於例如O/P上述文件的同時滿足條件將是： -

A B A 10 20 

A B A 35 45 

C D A 10 15 

A B Q 15 20 

行的順序不是重要的文件。

---

##Changed the program 
set input [open "data.txt" "r"] 

set content [read $input] 

set lines [lsort -unique [split $content "\n"]] 

set keylist "" 

set valuelist "" 


foreach line $lines { 

    if {$line == ""} { continue } 
    set data [split $line " "] 
    set key [join [lrange $data 0 2] "_"] 
    set index [lsearch $keylist $key] 

    if {$index != -1} { 
     set value [lindex $valuelist $index] 

     set diff_a [expr [lindex $data 3] - [lindex $value 0]] 
     set diff_b [expr [lindex $data 4] - [lindex $value 1]] 

     if {$diff_a > 10 && $diff_b > 10 } { 
      puts $line 
     } 

     set a [ lreplace valuelist $index $index [lrange $data 3 4]] 

     set valuelist $a 

    } else { 
     lappend keylist $key 
     lappend valuelist [lrange $data 3 4] 
     puts $line 
    } 
} 

Answer 1

這不是一個聰明的解決方案，但工程。

set input [open "data.txt" "r"] 
set content [read $input] 
set lines [lsort -unique [split $content "\n"]] 
set keylist "" 
set valuelist "" 

foreach line $lines { 
    if {$line == ""} { continue } 
    set data [split $line " "] 
    set key [join [lrange $data 0 2] "_"] 
    set index [lsearch $keylist $key] 

    if {$index != -1} { 
     set value [lindex $valuelist $index] 

     set diff_a [expr [lindex $data 3] - [lindex $value 0]] 
     set diff_b [expr [lindex $data 4] - [lindex $value 1]] 

     if {$diff_a > 10 && $diff_b > 10 } { 
      puts $line 
     } 

     set valuelist [lreplace valuelist $index $index [lrange $data 3 4]] 
    } else { 
     lappend keylist $key 
     lappend valuelist [lrange $data 3 4] 
     puts $line 
    } 
} 

輸出：

A B A 10 20 
A B A 35 45 
A B Q 15 20 
C D A 10 15