tcl - csh regexp マッチ コードを tcl に変更する

Question

シェルの次のコードを tcl に変更する必要があります。助けてください。

if (` expr $_f : proj_lp_ ` == 8) then

if 条件内の条件に相当する tcl が必要です。

ありがとう！

Answer 1

expr のマニュアル ページを参照してください。

  STRING : REGEXP
          anchored pattern match of REGEXP in STRING

したがって、_f変数は文字列を保持し、それをリテラルと比較していますproj_lp_。結果は試合の長さです。if {[regexp {^proj_lp_} $_f]} { ...}一致するかどうかだけを気にする可能性のあるTclコードでは。を使用することもできますif {[string match "proj_lp_*" $_f]} {...}。expr(1) ページは、これが固定された正規表現であると述べているため、キャレットを追加しています。私が示した両方の例は、入力文字列の先頭でのみ一致します (つまり、それらは固定されています)。