Data update

Task/Associative-array-Merging/Tcl/associative-array-merging-1.tcl

@@ -0,0 +1,5 @@
+set dict1 [dict create name "Rocket Skates" price 12.75 color yellow]
+set dict2 [dict create price 15.25 color red year 1974]
+dict for {key val} [dict merge $dict1 $dict2] {
+    puts "$key: $val"
+}

Task/Associative-array-Merging/Tcl/associative-array-merging-2.tcl

@@ -0,0 +1,10 @@
+set arrayname(item)  $value
+
+# or  set a series of item value pairs at one time:
+
+# create initial array
+array set skates {
+    name {Rocket Skates}
+    price 12.75
+    color yellow
+}

Task/Associative-array-Merging/Tcl/associative-array-merging-3.tcl

@@ -0,0 +1,39 @@
+# print formatted output
+proc print_array {fields arr}  {
+    # list back to array
+    array set A  $arr
+    set names [array names A]
+
+    foreach key $fields {
+	# format output
+	    puts -nonewline stdout [format "%-10s" $key]	
+	    if {$key in $names} {
+	        puts stdout [format "%-16s" $A($key)]
+	    } else {
+	        puts stdout ""
+	    }
+    }
+}
+
+# set field order
+set fields [list name price color year]
+puts "skates"
+print_array $fields [array get skates]
+
+
+# list of updates {arrayname item value}
+set updates {
+    {skates price 15.15}
+    {skates color red}
+    {skates year 1974}
+    }
+
+# update array
+foreach update $updates {
+    lassign $update item field value
+    array set $item [list $field $value]
+}
+
+puts [string repeat "-" 24]
+puts "skates updated"
+print_array $fields [array get skates]