Доступ к длинному списку Tcl

Question

У меня следующий длинный список tcl:

>> puts $res
{ banner { } }  { report { { name {{ columns { {head1} {head2} {head3} {head4} {pin} } } { { row_1 { { } {-0.008} { } {r1} {hier1} } } { row_2 { {1000} {-0.009} {-0.000} {r2} {hier2} } } } } } } }

Мне нужно получить доступ к значению 1000 в row_2.

Хотя я могу получить значение с помощью следующего, я был интересно, есть ли лучший способ сделать это, чем указывать lindex столько раз.

 >> set val [lindex [lindex [lindex [lindex [lindex [lindex [lindex [lindex $res 1] 1] 0] 1] 1] 1] 1] 0]
 >> 1000 

Answer 1

Команда lindex может принимать несколько индексов, поэтому вы можете сделать:

set val [lindex $res 1 1 0 1 1 1 1 0]