Hallo zusammen,

ich bin nur ein perl Gelegenheitsprogrammierer :-(
Kann mir mal jemand sagen wie ich folgendes an einfachsten in perl mache?

Ich habe eine Datei nach folgendem Muster (immer eine Zeile):
<1385156932|22.11.2013 21:48:52>020220040818022e10030b0202020202200408180e2b10030202200408180e2b10030202020220040818022d1003080202020220040818022c1003090202020202200408180e281003010202022004081903301003150220040818022b10030e0202
<1385157053|22.11.2013 21:50:53>20040819081910033702
<1385157053|22.11.2013 21:50:55>020204087C01121003370202
<1385157132|22.11.2013 21:52:12>200421ab04641003dd02200421ab0610101003bb

nun sollen die Daten überarbeitet werden
- es sollen "Datensätze" herausgefischt werden.
- ein Datensatz beginnt immer entweder mit 2004 oder 04
- und ein Datensatz endet immer vor 1003
- bei mehr als einem Datensatz pro Zeile soll jeder weitere in eine neue Zeile mit dem original Prefix/Timestamp/Datum geschrieben werden

Erwartet:
<1385156932|22.11.2013 21:48:52>20040818022e
<1385156932|22.11.2013 21:48:52>200408180e2b
<1385156932|22.11.2013 21:48:52>200408180e2b
<1385156932|22.11.2013 21:48:52>20040818022d
<1385156932|22.11.2013 21:48:52>20040818022c
<1385156932|22.11.2013 21:48:52>200408180e28
<1385156932|22.11.2013 21:48:52>200408190330
<1385156932|22.11.2013 21:48:52>20040818022b
<1385157053|22.11.2013 21:50:53>200408190819
<1385157053|22.11.2013 21:50:55>04087C0112
<1385157132|22.11.2013 21:52:12>200421ab0464
<1385157132|22.11.2013 21:52:12>200421ab061010


Danke für Hinweise
Last edited: 2013-11-26 13:35:44 +0100 (CET)