Perl 和 Tcl 中的 foreach

Question

我有一个 Perl 脚本，它迭代如下数组：

my @GPO_regs = qw(0x70034 0x70038 0x7003C 0x70040 0x70044);

foreach my $register (@GPO_regs) { write_register($register, 0x0000) };

上面的 tcl 等价物应该是什么？这个对吗？

set GPO_regs "0x70034 0x70038 0x7003C 0x70040 0x70044"

foreach {regs} [array get GPO_regs] { write_register $regs 0x0000}

Answer 1

GPO_regs 这里是列表，不是数组，所以你需要遍历它的是

foreach regs $GPO_regs {write_register $regs 0x0000}