从字符串中获取字段，将其存储在变量中，然后进行比较

Question

我有

From: "1234"<sip:1234@8.43.33.101;x-j1;x-refci=27684157;x-just1=S58>;tag=4834BAF1

我想从x-j1;x-refci=27684157;x-just1=S58标题中复制From并将其存储在变量s1中，并与s2（包含类似字符串的另一个变量）进行比较

Answer 1

您可以使用正则表达式：捕获第一个分号和结束尖括号之间的文本：

set str {From: "1234"<sip:1234@8.43.33.101;x-j1;x-refci=27684157;x-just1=S58>;tag=4834BAF1}
regexp -- {.*?;(.+)>} $str all wanted
puts $wanted ; # => x-j1;x-refci=27684157;x-just1=S58

或使用查找相关的子字符串

set start [string first {;} $str]
set end [string first {>} $str]
set wanted [string range $str $start+1 $end-1]