Tcl 新手请教这个程序的意思，怎么也看不懂，谢谢了！

winniexia · 发表于 2011-7-5 07:17:04

set SAI_RX_BCLK_PINS [list  pte[9] pta[14] ptc[6] ptc[9]]
foreach pin ${SAI_RX_BCLK_PINS} {
  regexp {(.*)\[(.*)\]} $pin junk name num
  set npin $name$num

  if { [info exists cts_spec_stage1] && $cts_spec_stage1 } {
   set sai_rx_bclk [dbGet [dbGet top.insts.instTerms.name pads_pi/pad_${npin}/ipp_ind -p].name]
   lappend cts_spec(${sai_rx_bclk},LeafPin) "clkgen_sai_clk_mux/d0 rising"
｝

  就是regexp {(.*)\[(.*)\]} $pin junk name num  部分怎么也看不懂。其它部分清楚是什么意思。所以请教达人帮忙解释一下，跪谢！
      set npin $name$num

默默巫 · 发表于 2011-7-6 11:08:16

提问帖不要选择付费主题哦，可以下次选择发帖-悬赏。

msnshow · 发表于 2011-7-6 14:00:17

看不明白， regexp 应该是正则表达式

harrywood · 发表于 2011-7-6 21:35:56

这么复杂！我才看TCL3天，看不懂。

冰之世界 · 发表于 2011-7-7 10:59:03

regexp {(.*)\[(.*)\]} $pin junk name num
正则表达式，{}表示待匹配的样式，()表示分组，$pin是用于作匹配的字符串，junk是表示匹配与否的布尔值，如果匹配前后两个圆括号里面的内容分别赋值给name和num
set npin $name$num
把name和num的值串联在一起赋给npin

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] Tcl 新手请教这个程序的意思，怎么也看不懂，谢谢了！

相关帖子

站长推荐 /1