python / perl script log file

[Sparso]

Ik ben behoefte aan een script dat een log-bestand leest, neemt enkele gegevens uit het bestand en slaat het in een. Csv (coma separated value) formaat.Het voorbeeld logboek is hieronder:log.txt:

Datum: 3/14/09

Apparaat #: 1
Test: Cont: pass
Test: Lekkage: pass
Test: INL: 0.88
Test: DNL: 0.56

Apparaat #: 2
Test: Cont: pass
Test: Lekkage: pass
Test: INL: 0.76
Test: DNL: 0.44

Apparaat #: 3
Test: Cont: pass
Test: Lekkage: pass
Test: INL: 1.2
Test: DNL: 0.84formaat voor de. csv-bestand:
log.csv:

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

Is iemand een script, hetzij in perl of python zou zeer gewaardeerd worden.

 

[Colbhaidh]

Eenvoudige perl script (je 1e lijn kunnen worden # / usr / local / bin / perl of iets anders.
Als dit bestand heet eenvoudig dan zou je het uit te voeren zoals

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

open (IF, $ ARGV [0]);
open (VAN, "> $ ARGV [1]");print van $ header;

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

if ($ line = ~ m / Device #: (\ d ) /) (
$ dev = $ 1;
$ line = <IF>;
$ line = <IF>;
$ line = <IF>;
if ($ line = ~ m / Test: INL: (\ d \ d ) /) (
INL $ = $ 1
)
$ line = <IF>;
if ($ line = ~ m / Test: DNL: (\ d \ d ( )/)
DNL $ = $ 1
)
afdruk van $ dev ,",",$ INL ,",",$ DNL, "\ n"
)
)
)
close (IF);
close (VAN);