how to push multiple values into an array in TCL

Question

I am trying to append the values to an array as below and it is not appending to the value list

while {[gets $fp line] != -1} {

    if { [regexp {Path Group: (\w+)} $line all group]} {
        set hash($group) {}
 
    } elseif {[regexp {\(VIOLATED\)\s+(-[0-9]*.[0-9]*)} $line all slack]} {
        puts "slack $slack\n"
         lappend hash($group) $slack     
    }

 }

parray hash

The output of the array hash is only the last value of the iteration bit not a list

expecting

Name { X Y Z} Age {3 4 5:}

Sample input would be nice.

Shawn
– Shawn

2022-12-07 04:58:32 +00:00
Commented Dec 7, 2022 at 4:58 — Shawn
– Shawn, Commented Dec 7, 2022 at 4:58

Anton Menshov · Accepted Answer · 2022-12-11 19:12:41Z

1

set group {}
while {[gets $fp line] != -1} {
  if { [regexp {Path Group: (\w+)} $line all group]} {
  } elseif {[regexp {\(VIOLATED\)\s+(-[0-9]*.[0-9]*)} $line all slack]} {
    puts "slack $slack\n"
    lappend hash($group) $slack     
  }
}
parray hash

No need to set hash($group) on each matching because this will reset the contents of hash($group).
In lappend hash($group), if the variable does not exist, it will be created automatically.

edited Dec 11, 2022 at 19:12

Anton Menshov

2,32415 gold badges38 silver badges59 bronze badges

answered Dec 7, 2022 at 13:42

sharvian

6544 silver badges5 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

harsha inuganti Over a year ago

This works! I need to declare the group as a list too

Collectives™ on Stack Overflow

how to push multiple values into an array in TCL

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related