求问关于TCL语言里面正则表达式regexp匹配的问你

sjtusonic

回复 1# xychzkhf


    用eval加上指令做其参数，man一下其用法。
注意其后参数字符串中反斜杠转义的使用。

sjtusonic

回复 3# xychzkhf

#a-----------------------------------------------------------
set infile [open "file.txt" "r"];
while {[gets $infile Op]>=0} {
      
set Operation "expr $Op";
  #set Result [eval $Operation];#这个就可以，他支持多次！
  set Result [$Operation];#实践证明，一次翻译不行

  puts stdout "$Op=$Result\n";
}
#3-------------------------------------------

file.txt：

1+2
4+5
7-9

这是一个读入文本中每行的算式，并计算结果的程序。字符串$operation每次循环的值都不同，用eval执行$operation里面存储的命令

sjtusonic

回复 5# xychzkhf


    你试试看呗，如果有问题的话，建议把eval套在最外层再试试。

sjtusonic

回复 7# xychzkhf


    这样是可以的：
set v 123
eval "regexp \{^\\s+$v\} \"      12345678\""

你仔细看看 \ 的加法，搞清楚哪些地方该加哪些地方不加。

sjtusonic

回复 9# xychzkhf


    eval set pattern 这段是什么个思路？ 看不明白了。

你查的哪些资料？跟大家分享一下呗