tcl中如何对正则表达式展开，比如将参数[1-3]展开为 1 2 3

HuiCai

想实现如下功能：
foreach i 正则表达式 {

}

比如foreach i {1 2 [3-5]}希望等于foreach i 1 2 3 4 5

多谢

寂寞烈火

1. 
   
2. for i in 1 2 $(seq 3 5);do
   
3. ....
   
4. done

复制代码

hou~~hou`~~

HuiCai

已经搞定！

http://www.tclchina.com/bbs/show ... d=595&totable=1

------------------------------------------------------------------------
flamingwave：
正则表达式只是对字符串做匹配呀.并不能给字符串里添加新的字符呀.
对你的这个要求得做一个小程序了.
看你的意思就是要把{1 2 [3-5]}用程序识别成{1 2 3 4 5}咯.
首先把foreach 后的变量搞成列表,

1. 
   
2. set ko {1 2 [3-5]}
   
3. regexp {\[(.?)-(.?)\]}  $ko a b c
   
4. for {set i $b} {$i <= $c} {incr i 1} {
   
5.    lappend ok $i  
   
6. }
   
7. 
   
8. puts $ok
   

复制代码

这个OK里面就是你想要转换出来的东东了.
------------------------------------------------------------------------

利用此完成rsh到多个节点进行top命令的脚本
用法： rshtop 1 2 [4-8] [11-13] 15
等表示rsh node到1 2 4 5 6 7 8 11 12 13 15节点进行top

1. 
   
2. # Author: HM Li <HM_Li@ustc.edu>
   
3. #   Date: 05-09-22
   
4. #Comment: rsh node$NodeNum top
   
5. #  Usage: rshtop NodeNum1 NodeNum2 [NodeNum_1-NodeNum_2] ...
   
6. 
   
7. proc top {NodeNum} {
   
8.         if {$NodeNum>0 && $NodeNum<=32} {
   
9.                 set node "node$NodeNum"
   
10.                 spawn rsh $node
    
11.                 expect $node
    
12.                 send "top\r"
    
13. #               expect "COMMAND" #如果解除这两行开头的#，
    
14. #               send "q\r"       #则top后直接退出top命令
    
15.                 interact {
    
16.                 }
    
17.         }
    
18. }
    
19. 
    
20. foreach i $argv {
    
21.         set REG [regexp {\[(.*)-(.*)\]}  $i a b c]
    
22.         if {$REG} {
    
23.                 for {set j $b} {$j <= $c} {incr j 1} {
    
24.                    lappend NodeList $j
    
25.                 }
    
26.                 foreach n $NodeList { top $n}
    
27.                 set NodeList ""
    
28.         } else { top $i }
    
29. 
    
30. }
    

复制代码

yongjian

弓虽！