将csh regexp匹配代码更改为tcl

将csh regexp匹配代码更改为tcl,tcl,csh,Tcl,Csh,我需要将shell中的以下代码更改为tcl。请帮忙 if (` expr $_f : proj_lp_ ` == 8) then 我需要if条件中条件的tcl等价物 谢谢 请参见where is状态: 因此,您的\u f变量包含一个字符串,并且您正在将它与一般的proj\u lp进行比较。结果就是比赛的长度。在tcl代码中,如果{[regexp{^proj_lp}$\u f]}{…},则可以是,因为您只关心它是否匹配。如果{[string match“proj_lp.*”$\u f]}{…},

我需要将shell中的以下代码更改为tcl。请帮忙

if (` expr $_f : proj_lp_ ` == 8) then
我需要if条件中条件的tcl等价物

谢谢

请参见where is状态:

因此,您的
\u f
变量包含一个字符串,并且您正在将它与一般的
proj\u lp
进行比较。结果就是比赛的长度。在tcl代码中,如果{[regexp{^proj_lp}$\u f]}{…},则可以是
,因为您只关心它是否匹配。如果{[string match“proj_lp.*”$\u f]}{…}
,也可以使用
。expr(1)页面说这是一个锚定的regexp——因此添加了插入符号。我给出的两个示例仅在输入字符串的开头匹配(即:它们被锚定)

  STRING : REGEXP
          anchored pattern match of REGEXP in STRING