如何在TCL中使用regexp檢索1（來自M 1 COMPLD）這一行？

Question

set sample "act-user:IMLI:nmss:1::***; 
imli 2013-10-21 15:13:54 
M 1 COMPLD 
; 
IMLI 2013-10-21 15:13:54 
; 
>" 

如何檢索1（從M 1 COMPLD）這條線在TCL中使用regexp ???

Answer 1

您需要使用非默認的匹配模式 - 在線感知 - 使那些重新簡單：

regexp -line {^M\s+(\d+)\s+COMPLD$} $sample -> value 
puts "value = $value" 

或者，你可以把該選項的RE自身內部：

regexp {(?n)^M\s+(\d+)\s+COMPLD$} $sample -> value 
puts "value = $value" 

行爲完全相同。