Removing elements after lappend

[Sir_Fz]

I'm using lappend to add nicks to a variable when nick joins, what I want to do is a timer which calls a proc after few seconds and removes this nick from the variable, but I couldn't find out a way to do that. Does anybody have any ideas ?

[user]

I'm using lappend to add nicks to a variable when nick joins, what I want to do is a timer which calls a proc after few seconds and removes this nick from the variable, but I couldn't find out a way to do that. Does anybody have any ideas ?

Does each person joining have a unique delay before removal? If not: there's no need to keep track of the order/search - just make the timer remove the first element in the list as it will always be the oldest one.

PS: check out my post count

[Sir_Fz]

I mean how to remove an element from a variable, like lappend will add an element but what's the command to remove one ?

for example, I would have something like:

Code: Select all

lappend var($chan) "$nick"
utimer 3 [list rem:nick $nick $chan] ;#which will remove $nick from var($chan)

but what would the proc rem:nick be like ?

PS: check out my post count

lol you're the devil 666

[strikelight]

check the manual page entries for lreplace and lsearch.

[Sir_Fz]

I tried it before, but I couldn't figure it out.

« Opposing » .tcl set someo "a b c d e"
« bot » Tcl: a b c d e
« Opposing » .tcl lreplace $someo [lsearch $someo b] [lsearch $someo b] ""
« bot » Tcl: a {} c d e
« Opposing » .tcl set someo
« bot » Tcl: a b c d e

as you see the element b is still in the someo variable.

[user]

lreplace doesn't change variables. It takes a list as input and gives a list as output. To have the value stored you must do it yourself. If you want to remove an element, don't specify a replacement value ("" will replace the range with an empty element)

[Sir_Fz]

Can you please give an example ?

[caesar]

something like this..

Code: Select all

set wordlist "foo moo bar"
set word "moo"

set index [lsearch -exact $wordlist $word] 
set result [lreplace $wordlist $index $index]

[Sir_Fz]

Thanx I finally got it