Tcl中模仿Perl中的列表功能

# 2008/09/25 01:36 @ root

先看Perl中的一个常见应用

my @bbox = qw(10.0 12.0 13.0 14.0);
my ($llx, $lly, $urx, $ury) = @bbox;

怎样在Tcl中作类似的处理呢?

可以使用foreach达到这个目的。

set bbox {10.0 12.0 13.0 14.0}
foreach {llx lly urx ury} $bbox break