TCLの文字列分割

以下に2文字列を入力として記載しました。
TCLの文字列分割

Mon May 22 04:18:11 2017  call duration

と

call duration

私は出力としてMon May 22 04:18:11 2017取得したいです。

TCLを使用してこの値を取得する正規表現を作成するにはどうすればよいですか？

出典

2017-05-24 Chetan Dekate

は、あなたが正確に喜ばでした（それも少しの文字列が見つからなかった場合に動作します）あなたは持っていますか？動作しないコードを共有します。 –

少なくとも、「通話時間」文字列が質問と関係していることを説明できますか？大きな文字列からこの部分文字列（ユーザ定義ですか？）を削除する必要があるとしますか？ –

ちょうどチェックしました：regexpsは必要ありません。http://ideone.com/bfc56sを参照してください。 –

私はこれを行うだろう：（疲れた、安っぽいvarnamesはご容赦ください）

proc prefix {big_str little_str} { 
    # find the position of the first "little string" in the "big string" 
    set index [string first $little_str $big_str] 
    # get the substring that precedes that index 
    return [string range $big_str 0 $index-1] 
}

テストはどのような問題

% prefix "Mon May 22 04:18:11 2017  call duration" "call duration" 
Mon May 22 04:18:11 2017  
% prefix "Mon May 22 04:18:11 2017  call duration" "XYZ" 
%

出典

2017-05-29 19:21:28

答えて

関連する問題