Tcl [regexp] : 변수가 내부에있는 블록과 일치하는 표현

Question

If 블록이 특정 파일 안에 있는지 찾아야합니다. 다음과 같이

나는 new.tcl 파일이 있습니다

if { [info exists var1] } { 
    if { "$var1" == "val1" } { 
    puts "var1 has value as val1" 
    } 
} else { 
    puts "var1 does not exists" 
} 

나는 또 다른 Tcl의 기능에서이 파일을 읽고 일치하려고 regexp 기능과 가치와 변수를 통해 블록은이 기능에 사용되는 경우 변수입니다. 내 구현 파일의 모양

,

set valueDict [list 'var1' 'val1'] 
set valDictLen [llength $valueDict] 
set myFilePtr [open "new.tcl" "r"] 
set myFileContent [read $myFilePtr] 
close $myFilePtr 

for { set index 0 } { $index < $valDictLen } { incr index 2 } { 
    set currVar [lindex $valueDict $index] 
    set currVal [lindex $valueDict [expr $index + 1]] 

    # I actually want to match the entire if block content here 
    if { ![regexp "if \{ \[info exists $currVal\] \}" $myFileContent] } { 
    puts "Code not present" 
    } 
} 

Answer 1

보십시오.

if { ![regexp "if *{ *[info exists $currVal] *}" $myFileContent] } { 
    puts "Code not present" 
} 

당신이 TCL의 정규 표현식에서 "사용 [사용하여 다음 명령/키워드가 의미

Answer 2

SBORDOLO-M-V1VG:Downloads sbordolo$ cat t3 

set var1 "value" 
set currVal "var1" 
#set myFileContent "\[info exists var1\]" 
set myFileContent {[info exists var1]} 

if { ![regexp "[info exists $currVal]" $myFileContent] } { 
    puts "Code not present" 
} else { 
    puts "Code present" 
} 
SBORDOLO-M-V1VG:Downloads sbordolo$ 
SBORDOLO-M-V1VG:Downloads sbordolo$ tclsh t3 
Code present 
SBORDOLO-M-V1VG:Downloads sbordolo$