TCL - ファイル内のすべての警告数を見つける

Question

ファイルに含まれるすべての警告数を調べる必要があります。 警告で始まる行には警告コードが含まれています。 私はregexpで試してみると、一言の警告を得ることができ、すべてを得ることができません。タクの下で実行するアルゴリズムを教えてください。出力の

Warning (abc_10) .... <explanation of warning> 
Warning (abc_11) .... <explanation of warning> 
Warning (abc_10) .... <explanation of warning> 
Warning (abc_13) .... <explanation of warning> 
Warning (abc_11) .... <explanation of warning> 
Warning (abc_10) .... <explanation of warning> 
. 
. 
. 
. 
Warning (abc_15) .... <explanation of warning> 

は私が

abc_10 5 (Assuming abc_10 occurred 5 times in a file) 
abc_11 2 
abc_13 1 
abc_15 4 

をさらに進めるために私を助けてください情報を下回る必要があります。

Answer 1

このスクリプトでは、警告コードをキャプチャするためのパターン\(([^)]+)（リテラルの左かっこからの一致、1つまたは複数の文字のキャプチャ）を使用して、周波数配列に入力します。値が与えられたキー/名前発生の頻度で

unset -nocomplain warnings 
set fp [open warning_file.txt] 
while {[gets $fp line] >= 0} { 
    if {[regexp {\(([^)]+)} $line -> key]} { 
     incr warnings($key) 
    } 
} 
close $fp 

次に、あなただけの配列を印刷することができます。

% parray warnings 
warnings(abc_10) = 3 
warnings(abc_11) = 2 
warnings(abc_13) = 1 
warnings(abc_15) = 1 

ドキュメント： >= (operator)、をclose、 gets、 incr、 open、 parray、 regexp、 set、 unset、 while、Syntax of Tcl regular expressions