python / perl dnevnička datoteka skripte

[sparso]

Ja sam u potreba od skriptu koja čita dnevnička datoteka, uzima neke podatke iz datoteke i sprema u. Csv (koma odvojene vrijednosti) formatu.Primjer log je u nastavku:log.txt:

Date: 3/14/09

Uređaj #: 1
Test: Cont: pass
Test: Leakage: pass
Test: inl: 0.88
Test: DNL: 0.56

Uređaj #: 2
Test: Cont: pass
Test: Leakage: pass
Test: inl: 0.76
Test: DNL: 0.44

Uređaj #: 3
Test: Cont: pass
Test: Leakage: pass
Test: inl: 1.2
Test: DNL: 0.84oblik za. csv datoteku:
log.csv:

uređaja, inl, DNL
1,0.88,0.56
2,0.76,0.44
3,1.2,0.84

Je li netko ima skriptu ili u Perl ili Python to bi bilo mnogo poštovati.

 

[Colbhaidh]

Jednostavna perl skripta (svoju 1. linija može biti # / usr / local / bin / perl ili nešto drugo.
Ako se ova datoteka se naziva jednostavno onda bi to izvršiti poput

. / jednostavnih input.in output.out#! perl
#
#
#
$ header = "uređaja, inl, DNL \ n";

open (IF, $ ARGV [0]);
open (OF, "> $ ARGV [1]");tisak $ header;

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

if ($ redak = ~ m / Device #: (\ d ) /) (
dev $ = $ 1;
$ line = <IF>;
$ line = <IF>;
$ line = <IF>;
if ($ redak = ~ m / Test: inl: (\ d \ d ) /) (
Inl $ = $ 1
)
$ line = <IF>;
if ($ redak = ~ m / Test: DNL: (\ d \ d ( )/)
DNL $ = $ 1
)
otisak $ dev ,",",$ inl ,",",$ DNL, "\ n"
)
)
)
close (IF);
close (OF);