python / perl ficheiro script

[sparso]

Estou a precisar de um script que lê um arquivo de log, tem alguns dados do arquivo e grava-lo em um arquivo. Csv (valores separados vírgula) format log é exemplo a seguir:log.txt:

Data: 3/14/09

Device #: 1
Teste: Cont: pass
Teste: Fuga: pass
Teste: INL: 0.88
Teste: DNL: 0,56

Device #: 2
Teste: Cont: pass
Teste: Fuga: pass
Teste: INL: 0.76
Teste: DNL: 0,44

Device #: 3
Teste: Cont: pass
Teste: Fuga: pass
Teste: INL: 1.2
Teste: DNL: 0,84formato para o arquivo. csv:
log.csv:

dispositivo, INL, DNL
1,0.88,0.56
2,0.76,0.44
3,1.2,0.84

Será que alguém tem um script Python ou Perl, quer no que seria muito apreciado.

 

[Colbhaidh]

Simples script perl (seu 1o linha poderia ser # / usr / local / bin / perl ou qualquer outra coisa.
Se este arquivo é chamado de simples, então você deve executá-lo como

. / simples input.in output.out#! perl
#
#
#
$ header = "dispositivo, INL, DNL \ n";

aberta (IF, $ ARGV [0]);
open (DA, "> $ ARGV [1]");impressão de R $ header;

while ($ linha = <IF>)
(
csv $ = "";if ($ linha = ~ m / Dispositivo #: /)
(
$ dev = 0;
$ INL = 0;
DNL $ = 0;

if ($ linha = ~ m / Dispositivo #: (\ d ) /) (
$ dev = $ 1;
$ linha = <IF>;
$ linha = <IF>;
$ linha = <IF>;
if ($ linha = ~ m / Teste: INL: (\
d \ d ) /) (
INL $ = $ 1
)
$ linha = <IF>;
if ($ linha = ~ m / Teste: DNL: (\
d \ d )/) (
DNL $ = $ 1
)
impressão de R $ dev ,",",$ INL ,",",$ DNL, "\ n"
)
)
)
close (SE);
close (DA);