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$