Question

To be more precise:

I need to be looking into a file abc.txt which has contents something like this:

files/f1/atmp.c        98   100  

files/f1/atmp1.c       89   100 

files/f1/atmp2.c  !!   75   100

files/f2/btmp.c        92   100

files/f2/btmp2.c  !!   85   100

files/f3/xtmp.c        92   100

The script needs to find “!!” and use those lines to print out the following as output:

atmp2.c  75

btmp2.c  85

Any help?

Answer 1

this should do the trick.

set data {files/f1/atmp.c        98   100  
files/f1/atmp1.c       89   100 
files/f1/atmp2.c  !!   75   100
files/f2/btmp.c        92   100
files/f2/btmp2.c  !!   85   100
files/f3/xtmp.c        92   100}

set lines [split $data \n]
foreach line $lines {
  set match [regexp {(\S+)\s+!!\s+(\d+)} $line -> file num]
  if {$match} {puts "$file $num"}
}

Although regexp has a -all switch I don’t think we can use it here as we only get the last match vars with -all