process - tcl 代码捕获文件中的重复行

Question

嗨，我有以下情况。我逐行读取文件；然后每个喜欢看起来像：2 0、3 0、4 0、9 0、11 3 等；像“字符串字符串”。然后将每个喜欢的东西放在一个变量中；$line 在 while 循环内的每次迭代中都会有一组值；现在我希望能够捕捉到一行是否重复或与我们之前看到的类似..

myFile 将包含：

2 0
3 0
9 0
11 3  
 3 5
2 9
2 0
3 5

这是代码：

set in [open myFile r]
set exline ""
while {[gets $in line] >= 0} {
    lappend exline $line
    if { [lsearch $exline $line] > 0} {
        puts "same number repeated $line"
    }
}
close $in

Answer 1

怎么样：

set fid [open myFile]
while {[gets $fid line] != -1} {dict incr lines [string trim $line]}
close $fid
dict for {line count} $lines {if {$count > 1} {puts "duplicated: $line"}}

duplicated: 2 0
duplicated: 3 5