How to use lreplace in nested lists

[QKill]

Hi,

how can i update an object in a nested list?

Code: Select all

set cal(0) [list {2} {2004-09-02} {19:00} {clame} {{{q3wcp14} {3} {14}} {{q3wcp17} {20} {1}}} {information} {5} {qkill} {blue} {tiny}]

If i for example want to update the value q3wcp17 which is in the third level of the nested list. Can anyone help me?

Thanks!

// Peter

[user]

use 'lset' if you're using one of the most recent versions of Tcl, if not, try this proc:

Code: Select all

proc lreplace2 {list path val} {
	set i [lindex $path 0]
	set path [lrange $path 1 end]
	if {[llength $path]} {
		lreplace $list $i $i [lreplace2 [lindex $list $i] $path $val]
	} {
		lreplace $list $i $i $val
	}
}

% lreplace2 {{{0 1 2} {0 1 2}} 2} {0 1 0} Hey?
{{0 1 2} {Hey? 1 2}} 2

[QKill]

Thanks alot!

// Peter