file - tcl如何读取文件

Question

我在正确读取 2 个文件时遇到一些问题:

filetest1.txt 包含:

chocolate
coconut
banana

filetest2.txt 包含:

strawberry
orange

程序:

proc callme {file1 file2} {
   set file1 [open $file1 r]
   set file2 [open $file2 r]
   while {[gets $file1 line1] != -1} {
      while {[gets $file2 line2] != -1} {
         puts "inside : $line1"
      }
      puts "outside : $line1"
   }
   close $file1
   close $file2
}
callme filetest1.txt filetest2.txt

输出显示:

inside : chocolate
inside : chocolate
outside : chocolate
outside : coconut
outside : banana

所以我的问题是为什么只有:

inside : chocolate
inside : chocolate

我期望有:

inside : chocolate
inside : chocolate
outside : chocolate
inside : coconut
inside : coconut
outside : coconut
inside : banana
inside : banana
outside : banana

谢谢。

Answer 1

您应该将代码更改为:

proc callme {file1 file2} {
   set file1 [open $file1 r]
   set file2 [open $file2 r]
   while {[gets $file1 line1] != -1} {
      seek $file2 0 start
      while {[gets $file2 line2] != -1} {
         puts "inside : $line1"
      }
      puts "outside : $line"
   }
   close $file1
   close $file2
}
callme filetest1.txt filetest2.txt

请注意 seek $file2 0 start，它让您在循环的每次迭代中返回到第二个文件的开头。希望这对您有所帮助!