tcl script to search between the files and replace the data

Shreya 0
Viewed 73

I have two big files. file1 has data in below format

place u_RX_WR_SE1_LS { } R0 -place
place u_bank_LS { } R0 -place

file2 has data in below format

set inst RX_WR_SE1_PD ; add -inst $inst -cell PR ; place $inst  5.76    5305.84 0
set inst RX_WR_SE2_PD ; add -inst $inst -cell PR ; place $inst  5.76    5338.864    0
set inst bank_PD ;  add -inst $inst -cell PR ; place $inst  5.76    5371.888    0

I want to search 2nd field removing starting u_ and _LS from file1 i.e RX_WR_SE1 in file2, and if found in file2, for same match line copy field $13 $14 from file2 and add it inside { } in file1.

The output should be in below format.

place u_RX_WR_SE1_LS { 5.76 5305.84 } R0 -place
place u_bank_LS { 5.76  5371.888 } R0 -place

Anyone who can help using TCL or SHELL? In shell I tried

awk 'FNR==NR{gsub(/u_|_LS/,"",$2);arr[$2]="";next} 
{
for (i in arr) { if ($0 ~ i) {print i,$13,$14}}
}
' file1 file2

but this is not giving proper results .

In TCL it is also fine.

gsub awk tcl sed shell
3 Answers

You may have solved it for yourself but if you are still waiting for an answer, would you please try the following:

awk '
    NR==FNR {
        f2 = $2                         # backup $2 to avoid modification
        gsub(/u_|_LS/, "", f2)          # remove u_ and _LS from f2
        arr[f2] = $0                    # associate f2 to the line
        next
    }
    {
        for (i in arr) {
            if ($0 ~ i) {
                sub(/\{[[:blank:]]+\}/, "{ " $13 " " $14 " }", arr[i])
                                        # fill curly braces of arr[i] with $13 and $14
                print arr[i]
            }
        }
    }
' file1 file2

Output:

place u_RX_WR_SE1_LS { 5.76 5305.84 } R0 -place
place u_bank_LS { 5.76 5371.888 } R0 -place
tshiono0

I dont see any Trim or Matching conditions in your Code.

Try this,

`

awk 'FNR==NR{gsub(/u_|_LS/,"",$2);arr[$2]="";next} 
{
for (i in arr) { if ($0 ~ i) {print i,$13,$14}}
}
' file1 file2

`

RX_WR_SE1 5.76 5305.84
bank 5.76 5371.888

gsub performs the Trim for your text, so as to match with the next file for loop performs the matching.

It's not fully up to your expectations of the output, but I believe it provides a base for you.

VipinKG0

With Tcl

# extract the data from file2
set fh [open file2]
set values {}
while {[gets $fh line] != -1} {
    set fields [regexp -all -inline {\S+} $line]
    set inst_name [regsub -- {_PD$} [lindex $fields 2] ""]
    dict set values $inst_name [lrange $fields 12 13]
}
close $fh

# read file1, replace the values, and store in a new file
set fin [open file1]
set fout [open file1.new w]
while {[gets $fin line] != -1} {
    set inst_name [regsub {^u_(.+)_LS$} [lindex [split $line] 1] {\1}] 
    puts $fout [format {place %s {%s} R0 -place} $inst_name [dict get $values $inst_name]]
}
close $fin
close $fout

# move the new contents to file1
# remove next line if you don't need to backup the file
file link -hard file1 file1.bak
file rename -force file1.new file1
glenn jackman0
Related