egghelp/eggheads community

array unset procedure

2003-12-13T12:15:44-04:00

user, what did you do to your avatar again..

Statistics: Posted by GodOfSuicide — Sat Dec 13, 2003 12:15 pm

array unset procedure

2003-12-12T22:31:20-04:00

he said and I quote "I just want to unset an element and not the whole array... " so.. that should do what he asked..

Using array unset to unset single array elements does not work without escaping some chars in the pattern first. (you could argue it works most of the time, but that's not good enough)

lremove (proc 1) or (proc 2) element (glob style)

You seem to be a bit confused about arrays/lists

A list is just a way to format your data while an array element is a place to store the data (think of them as normal variables with strange names )

Here's one proc to remove elements from a list and one to unset array elements:

Code:

# usage: lremove  # returns: the new listproc lremove {list mask} {set i 0foreach elem $list {if {[string match $mask $elem]} {set list [lreplace $list $i $i]} {incr i}}set list}# usage: array_unset  # returns: nothingproc array_unset {array mask} {upvar 1 $array arrforeach elem [array names arr $mask] {unset arr($elem)}}

Statistics: Posted by user — Fri Dec 12, 2003 10:31 pm

array unset procedure

2003-12-12T18:28:36-04:00

I have the opinion that tcl8.0, which I'm using, does not support array unset command and that's why I have all these problems

Sir_Fz I have thougth of this, but I don't know how I should give as argument.

Code:

proc lremove { list element } {    set temp ""    for {set i 0} {$i < [llength $list]} {incr i} {        if {![string match $element [lindex $list $i]]} { lappend temp [lindex $list $i] }    }     return "$temp"}

Would be correct this one?

Code:

proc lremove { array_element list_element } {     global $array_element    for {set i 0} {$i < [llength $array_element]} {incr i} {        if {![string match $list_element [lindex $array_element $i]]} { lreplace $array_element $i $i }    } }

Example:
I have this array:

element1 data1 element2 {data2.1 data2.2 data2.3} element3 data3

and I simply to use:
lremove (proc 1) or (proc 2) element (glob style)

and not:
set array_element [lremove $array_element list_element]

Thx for your time

Statistics: Posted by cerberus_gr — Fri Dec 12, 2003 6:28 pm

array unset procedure

2003-12-12T15:07:48-04:00

he said and I quote "I just want to unset an element and not the whole array... " so.. that should do what he asked..

Statistics: Posted by caesar — Fri Dec 12, 2003 3:07 pm

I've said this before...

2003-12-12T13:13:07-04:00

something like this should do it..
Code:
array unset yourarray $element
Don't forget to call globaly the array via an global yourarray and no need of $ in front of yourarray like $yourarray..

And don't forget that the part you called 'element' is actually a PATTERN (glob), so to unset single elements, using the good old 'unset' would probably make your life alot easier.

Statistics: Posted by user — Fri Dec 12, 2003 1:13 pm

array unset procedure

2003-12-12T11:40:56-04:00

something like this should do it..

Code:

array unset yourarray $element

Don't forget to call globaly the array via an global yourarray and no need of $ in front of yourarray like $yourarray..

Statistics: Posted by caesar — Fri Dec 12, 2003 11:40 am

array unset procedure

2003-12-12T11:01:01-04:00

call globaly a variable, and use set variable [lreplace.....]

Statistics: Posted by Sir_Fz — Fri Dec 12, 2003 11:01 am

array unset procedure

2003-12-11T18:53:52-04:00

I have a list in an array and I want to remove an element from the array and not from the list... I could do this in the way I said before, but I want to make a procedure for this.

The only way that I have thougthis to call lremove like:
set listname [lremove listname guss]

and lremove procedure to return a new list without these elements...

Any ideas to make a procedure which returns 0 or 1 and it sipmly removes the list element from the array element?

Example:
Tcl: invite {loutrino_arkoudaki thanoulis thanoulis2 thanoulis2323 skynet mar|a guss pranky white_tiger}

array element: invite
array get $array invite returns the list

Statistics: Posted by cerberus_gr — Thu Dec 11, 2003 6:53 pm

array unset procedure

2003-12-11T11:42:24-04:00

use unset arrayname(stored-value) same this as array unset arrayname stored-value

Statistics: Posted by Sir_Fz — Thu Dec 11, 2003 11:42 am

array unset procedure

2003-12-11T07:39:00-04:00

array unset arrayName ?pattern?

I just want to unset an element and not the whole array...

hmmmm

I think about that again and it seems that I just want to delete an element from a LIST and not from an array where I could do this you said CrazyCat.

Code:

proc lremove { list element } {#  uplevel????   for {set i 0} {$i < [llength $list]} {incr i} {       if {[string match $element [lindex $list $i]]} { lreplace $list $i $i }   } }

I have to use uplevel. right?
Any help about it?

Statistics: Posted by cerberus_gr — Thu Dec 11, 2003 7:39 am

array unset procedure

2003-12-11T07:35:42-04:00

set $array_name ""
unset $array_name

Not tested, but I think it may works

Statistics: Posted by CrazyCat — Thu Dec 11, 2003 7:35 am

array unset procedure

2003-12-11T07:08:56-04:00

Hello,

I use tcl 8.0 which doesn't support "array unset" command.
How could I create a proc to do the same as unset option?

Statistics: Posted by cerberus_gr — Thu Dec 11, 2003 7:08 am