数学评价

Question

在Tcl中，我需要将字符串从二维数组转换为一维数组。

例如

lane_out[0][7]  -> lane_out[7]  
lane_out[1][0]  -> lane_out[8]

初始字符串从文件中读取，修改后存储在另一个文件中。此外，输入文件有许多不同类型的字符串需要替换，因此用户在另一个文件中提供查找和替换regex。

对于不需要额外计算的简单字符串，我已经成功地做到了这一点。但我在执行表达式方面需要帮助。我在想，我可以让用户在文件中提供表达式并执行该表达式，但我没有成功。

用户输入文件：

lappend userinput {\[(\d+)]\*$ *}
lappend userinput {\[(\d+)]\[(\d+)]$ [expr{\1*8+\2}]}

我的破译代码：

set line "lane_out[1][0]"
foreach rule $userinput {
  foreach {find replace} [regexp -all -inline {\S+} $rule] break
  regsub -all $find $line $replace line
  set match [regexp -all -inline {expr{.*}} $line] #match = expr{1*8+0}
  set val [$match] #supposed to execute what is in match
  regsub expr{.*} $line $val line
}

Answer 1

您所做的工作非常复杂:您有一个输入文件、一组搜索/替换规则，并产生一些输出。然而，这些规则要求调用expr。

下面是一个虚构的数据文件(data.txt)：

lane_out[0][7] = "foo bar"
lane_out[1][0] = "foo bar" 
lane_out[1][1] = "foo bar"
lane_out[2][0] = "foo bar"
lane_out[2][1] = "foo bar" 

规则文件(rules.txt)：

{\[(\d+)\]\[(\d+)\]} {\[[expr {\1 * 8 + \2}]\]}

下面是我的脚本(search_replace.tcl)：

package require Tclx

# Read the rules file
set rules {}
for_file line rules.txt {
    lassign $line find replace
    lappend rules $find $replace
}

# Read the data, apply rules
for_file line data.txt {
    foreach {find replace} $rules {
        regsub -all $find $line $replace line
        set line [subst $line]
        puts $line
    }
}

输出：

lane_out[7] = "foo bar"
lane_out[8] = "foo bar" 
lane_out[9] = "foo bar"
lane_out[16] = "foo bar"
lane_out[17] = "foo bar" 

讨论

• 规则的格式:每行包含搜索和替换表达式，用空格分隔
• 代码将转换一行，如 lane_out2 = "foo bar“ 至： lane_out[expr {2 *8+ 1}] = "foo bar“
• 然后，subst命令将其替换为： lane_out17 = "foo bar“
• 棘手的部分是转义方括号，以便expr能够做正确的事情。