次の正規表現がtclで動作しないのはなぜですか？私はTCLでいくつかのコードを読んでいます

Question

、正規表現は、この二重引用符で

set name "Ronaldo" 

proc GET_PLAYER_INFO {player_id {player_name "$name"}} { 
    global name 

    regexp "$player_name" "Ronaldo is awesome" match 

    puts $match 
} 

GET_PLAYER_INFO {1,"$name"} 

は、「$のPLAYER_NAMEは」「$名」に置き換えられ、動作しませんか？ $ nameは "Ronaldo"ですが、それはなぜ一致しませんか？

Answer 1

これはあなたが期待していることではありません。カーリーbrancesあなたは括弧内に含まれる正確なバイト列の最初のパラメータを設定しているGET_PLAYER_INFOを呼び出すときに、すなわち、その中に何の変数置換を意味しません：1,"$name"

をプロシージャ内で、PLAYER_NAMEが正確$nameに設定されているので、あなたの正規表現のラインが展開to：

regexp '$name' "Ronaldo is awesome" match 

したがって、行末と 'name'の後に一致するようにします。

あなたは変数のデフォルトパラメータを使用する場合は、あなたが本当になどを変更していない場合は、外部ソースから取得し、いくつかのガード値に設定する必要があります

proc proc GET_PLAYER_INFO {player_id {player_name ""}} { 
    global name 
    if {$player_name eq ""} { set player_name $name } 
    regexp "$player_name" "Ronaldo is awesome" match 
    puts $match 
} 

再読み慎重Tcl(1)に特別な注意を払ってグループ化に関する部分。ソリューションをpatthoytsに加えて

Answer 2

私はここに別のバリアントを持っている：

set name "Ronaldo" 

proc GET_PLAYER_INFO [list player_id [list player_name "$name"]] { 
    regexp "$player_name" "Ronaldo is awesome" match 
    puts $match 
} 

GET_PLAYER_INFO 1 $name 

GET_PLAYER_INFOのplayer_name引数が、それは$name変数のデフォルト値です（しかし、世話をする：$nameは、プロシージャ宣言の前に存在することがあります）を取得します。