tcl中的壓縮文件的正則表達式

Question

我想對路徑名執行一些正則表達式並保留它。

我行測試是這樣的：

"/home/tclshell/test.tcl.gz" "/home/tclshell/test1.tcl" /home/tclshell/test.tcl

所以triied之類的東西： regexp {(\S+\.tcl(?:\.gz)?)} $line blank mypath 或 regexp {(\S+\.tcl(|\.gz))} $line blank mypath

但它不似乎工作，"似乎是保存在$mypath。 正則表達式有什麼問題？

Answer 1

關鍵是\S匹配任何字符，但空格，所以它也匹配"。

您可以在模式的開始添加一個可選的"但ouside的捕獲組 - "?(\S+\.tcl(?:\.gz)?)：

set line "\"/home/tclshell/test.tcl.gz\"" 
regexp {"?(\S+\.tcl(?:\.gz)?)} $line blank mypath 
puts $mypath 

見Tcl online demo

另一種方式是通過替換它排除\S的"具有反轉速記類的否定字符類用於空白（\s）並將"添加到其中：[^\s"]：

([^\s"]+\.tcl(?:\.gz)?) 

見regex demo