关于tcl linsert 的问题

xiaogangzhao

我想要一个这样的结果{3} 1 2不知道怎么才可以?
看下面的都不符合。
linsert {1 2} 0 {3}  =>  3 1 2
linsert {1 2} 0 { 3}  =>  { 3} 1 2
linsert {1 2} 0 {{3}} => {{3}} 1 2
linsert {1 2} 0 {{{3}}} => {{{3}}} 1 2
多谢各位！！

welcome008

原帖由 xiaogangzhao 于 2008-9-12 18:25 发表
我想要一个这样的结果{3} 1 2不知道怎么才可以?
看下面的都不符合。
linsert {1 2} 0 {3}  =>  3 1 2
linsert {1 2} 0 { 3}  =>  { 3} 1 2
linsert {1 2} 0 {{3}} => {{3}} 1 2
l ...

别操心，



linsert {1 2} 0 {{3}} => {{3}} 1 2
就是你想要的

看着多了一层括弧
当你取那个值时就只有一层括弧了：

% set foo [linsert {1 2} 0 {{3}}]
{{3}} 1 2
% set bar [lindex $foo 0]
{3}
% puts $bar
{3}