process - ファイル内の繰り返し行をキャッチする tcl コード

Question

こんにちは、次のシナリオがあります。ファイルを 1 行ずつ読み込みます。次に、それぞれの like は次のようになります: 2 0、3 0、4 0、9 0、11 3 など。「ひもひも」のように。then のようなものはそれぞれ変数です。$line は、while ループ内の反復ごとに 1 セットの値を持ちます。行が繰り返されているか、以前に見たものと似ているかどうかをキャッチできるようになりたい..

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