TCL中的正則表達(dá)式 很簡(jiǎn)單的 弄不明白

leaner

set str "a b c c"
if {[regexp {a(.*?)\s*c} $str match1 rs1]} {
        puts $match1
        puts $rs1
}
puts -----------
if {[regexp {\s*a(.*?)\s*c} $str match2 rs2]} {
        puts $match2
        puts $rs2
}
結(jié)果：
a b c
b
-----------
a b c c
b c

怎么會(huì)這樣 就多了個(gè)\s*？？？

apile

剛看了一下TCL的regular expression...跟perl很像...
但是用perl寫一樣的代碼...
結(jié)果卻是我們所預(yù)期的...

1. 
   
2. #!/usr/bin/perl
   
3. $str = "a b c c";
   
4. if ($str =~/a(.*?)\s*c/){
   
5.   print  $&."\n";
   
6.   print "$1\n";
   
7. }
   
8. print "-----------\n";
   
9. if ($str =~/\s*a(.*?)\s*c/){
   
10.   print  $&."\n";
    
11.   print "$1\n";
    
12. }
    
13. 
    

復(fù)制代碼

所以看起來(lái)TCL在第二種情形下none greed 的match并沒有被啟動(dòng)...
也許是 bug..
也許是你多寫了什麼...
也許是TCL default只會(huì)對(duì)第一個(gè)出現(xiàn)的*做none greed的match..

這都只是假設(shè)...我手邊只有expect沒有tcl..沒辦法測(cè)你的代碼...

:) 這里有寫 TCL的人好像不多...

leaner

3Q
CU好同志就是多 呵呵

暫時(shí)我只能在有\(zhòng)s的地方都多加個(gè)?讓他不貪婪了
能達(dá)到目的就可以了 ：）