perl in Perl和Tcl

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}