用于捕获文件中重复行的 tcl 代码
tcl code to catch repeated lines in file
您好，我遇到了以下情况。我逐行读取文件；那么每个点赞看起来像：2 0、3 0、4 0、9 0、11 3 等；喜欢 "string string"。每个喜欢然后将被放入一个变量; $line 在 while 循环中的每次迭代中都会有一组值；现在我希望能够捕捉到一行是否重复或与我们之前看到的相似..
我的文件将包含：
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
怎么样：
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
您好，我遇到了以下情况。我逐行读取文件；那么每个点赞看起来像：2 0、3 0、4 0、9 0、11 3 等；喜欢 "string string"。每个喜欢然后将被放入一个变量; $line 在 while 循环中的每次迭代中都会有一组值；现在我希望能够捕捉到一行是否重复或与我们之前看到的相似..
我的文件将包含：
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
怎么样：
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