regex.tcl

来自「在unix下使用正则表达式」· TCL 代码 · 共 6 行

#!/usr/bin/tclsh
set line "Subject: Re: happy hacking!!!"
if [regexp "^Subject: (.*)" $line all exp1] {
     puts "The subject is: $exp1"
 }