Question

Sorry for not having a clear title. I’ll try to explain my question.

I have two files A and B.

The format of file A is something like this:

set_time 10 temp max 2 min 1 xyzzy
set_time 10 temp max 2 min 1 abcde
set_time 10 temp max 3 min 2 ersfg
set_time 8  temp max 2 min 0 fdfdf

File B looks like this:

xyzzy 7.5
abcde 8.5
ersfg 9.5
fdfdf 9.0

Now, what needs to be done is, I have to search for the last column names in file A (xyzzy, abcde, fdfdf, etc.) and replace the 2nd column values with those 2nd column values from file B.

So, the output should look like:

set_time 7.5 temp max 2 min 1 xyzzy
set_time 8.5 temp max 2 min 1 abcde
set_time 9.5 temp max 3 min 2 ersfg
set_time 9.0 temp max 2 min 0 fdfdf

Any help is appreciated. This is a part of a TCL flow.

Answer 1

Read the second file with the mappings, something like this:

set f [open file_B]
set mapping [dict create]
while {[gets $f l]} {
    if {[feof $f]} break
    dict set mapping {*}$l
}

Then process the original file by making set_time a command that outputs itself, while changing the desired value:

proc set_time {num_to_replace temp max maxnum min minnum mapval} {
    puts "set_time [dict get $::mapping $mapval] $temp $max $maxnum $min $minnum $mapval"
}

and then just source the original data file:

source file_A

This assumes of course that the two files have no other lines in them that would mess up the processing.