のpython / perlでログファイルスクリプト

[sparso]

私は
、 ログファイルを読み込み
、 スクリプトが必要で、午前のファイルからいくつかのデータを取得して、。csv（昏睡状態で区切られた値）形式で保存されます。この例ではログを下回っている：log.txtに：

日付：09/03/14

デバイス＃：1
テスト：続き：渡す
テスト：漏れ：渡す
テスト：のINL：0.88
テスト：のDNL：0.56

デバイス＃：2
テスト：続き：渡す
テスト：漏れ：渡す
テスト：のINL：0.76
テスト：のDNL：0.44

デバイス＃：3
テスト：続き：渡す
テスト：漏れ：渡す
テスト：のINL：1.2
テスト：のDNL：0.84。csvファイルの形式：
log.csv：

デバイスのINL、DNLが
1,0.88,0.56
2,0.76,0.44
3,1.2,0.84

誰かのいずれかperlやそれを大幅に高く評価されるpythonでスクリプトがついてです。

 

[Guest]

[No message]

 

[Colbhaidh]

シンプルなperlスクリプト（第1ライン＃/ usr / local / binに/ perlまたは何か他のことがあります。
このファイルの場合のように実行すると
、 単純なと呼ばれ

。/シンプルinput.in output.out＃！perlに関するリンク
＃
＃
＃
$ヘッダー="デバイスのINL、DNLの¥¥ N"の;

（、$ ARGVをのIF [0]）を開きます。
（"の"$ ARGVを[開く1]"）;$の印刷ヘッダー;

（$ながら
、 行= <IF>）
（
$ = CSV形式"";（$ if行=〜メートル/デバイス＃：/）
（
$ = 0 devに関するリンク;
$のINL = 0;
$性DNL = 0;

（$ if行=〜メートル/デバイス＃：（¥¥のD ）/）（
$ = $ 1 devに関するリンク;
$行= <IF>;
$行= <IF>;
$行= <IF>;
（$ if行=〜メートル/テスト：のINL：（¥¥ d. ¥¥のD ）/）（
$のINL = $ 1
）
$行= <IF>;
（$ if行=〜メートル/テスト：のDNL：（¥¥ d. ¥¥開発 )/)（
$性DNL = $ 1
）
の印刷$ devの,",",$のINL ,",",$のDNL、"¥¥ N"の
）
）
）
閉じる（IF）に;
近い（の）;