tcl - 如何使用foreach循环一一读取两个文件的内容？

Question

我的 TCL 脚本:

set a [open fruits.txt r]
set b [read $a]
foreach c $b {
    puts  "Fruits : $c"

    set website [open website_name1.txt r]
    set each_one [read $website]
    foreach each $each_one {
        puts  "website name : $c"
    }
}

fruits.txt 内容:

apple orange mango litchi banana

website_name1.txt内容:

google.com yahoo.com metlife.com cisco.com span.com

现在，如果我运行上面的脚本，我将得到如下所示的输出:

D:\Desktop>tclsh statck_qns.tcl
Fruits : apple
website name : apple
website name : apple
website name : apple
website name : apple
website name : apple
Fruits : orange
website name : orange
website name : orange
website name : orange
website name : orange
website name : orange
Fruits : mango
website name : mango
website name : mango
website name : mango
website name : mango
website name : mango
Fruits : litchi
website name : litchi
website name : litchi
website name : litchi
website name : litchi
website name : litchi
Fruits : banana
website name : banana
website name : banana
website name : banana
website name : banana
website name : banana

D:\Desktop>

但我试图获得如下所示的输出:

Fruits : apple
website name : google.com 
Fruits : orange
website name : yahoo.com
Fruits : mango 
website name : metlife.com 
Fruits : litchi
website name : cisco.com 
Fruits : banana
website name : span.com

Answer 1

您的代码存在许多问题。您在第二个循环中使用了 $c，而它应该是 $each。另外，如果您只想将网站名称放入一次，则需要获得一个同时循环遍历两个列表的循环。

set a [open fruits.txt r]
set b [read $a]

set website [open website_name1.txt r]
set each_one [read $website]

foreach c $b each $each_one {
  puts  "Fruits : $c"
  puts  "website name : $each"
}

close $a
close $website

codepad demo

您可以使用上述格式的 foreach 循环遍历两个列表(或更多)，即:

foreach var1 list1 var2 list2 ... varn listn {
  # code here
}

如果列表中的元素数量不相同，那么您将开始在元素数量较短的列表的变量名称中获取空字符串。