Hallo zusammen,

ich bin neu in der Perl Welt und suche Hilfe :-)
Ich möchte eine Datei auslesen, bestimmte Informationen entnehmen, formatieren und in eine neu Datei ausgeben.

Der Inhalt der Datei ist immer gleich aufgebaut, Beispiel:

HANS9999123456789
DAMPF0000123456789
GASSE
HANS8888123456789
DAMPF0000123456789
GASSE
HANS7777123456789
DAMPF0000123456789
GASSE

Wie ich die Datei öffne, auslese und in eine neue Datei schreibe habe ich bereits verstanden. Auch das suchen nach bestimmten Mustern klappt jetzt.
Nun kommt die Stelle an der ich mich schwer tue, den folgendes muss ich tun:

- HANS+DAMPF ergeben immer eine Kombination.
- HANS muss entfernt werden.
- Wenn die übrig gebliebene Nummer mit 9999 anfängt, brauche ich die ersten 3 Stellen der Nummer. => Variable_1
- Wenn die übrig gebliebene Nummer mit 8888 anfängt, brauche ich die ersten 4 Stellen der Nummer. => Variable_1
- Wenn die übrig gebliebene Nummer mit 7777 anfängt, muss ich eine Fehlermeldung ausgeben. => print OUTPUT_FILE "Fehler, bitte manuell prüfen.\n";
- DAMPF0000 muss entfernt werden, den Rest der Nummer brauche ich. => Variable_2
- Nun muss ich die Infos formatiert in eine neue Datei ausgeben, Beispiel:
print OUTPUT_FILE "ZUSATZ_FORMAT_A $VARIABLE_1 ZUSATZ_FORMAT_B $VARIABLE_2 ZUSATZ_FORMAT_C\n";

In diesem Beispiel müsste die Datei dann so aussehen:

ZUSATZ_FORMAT_A 123 ZUSATZ_FORMAT_B 123456789 ZUSATZ_FORMAT_C
ZUSATZ_FORMAT_A 1234 ZUSATZ_FORMAT_B 123456789 ZUSATZ_FORMAT_C
Fehler, bitte manuell prüfen.


Kann mir jemand ein Beispiel oder Lösungsansätze geben, wie ich dies umsetzen kann?
Mein Haupt Problem ist die Zuordnung, also dass immer HANS und der nächste DAMPF zusammengehören.
Ich habe bereits ein paar Versuche hinter mir, Problem war zuletzt, dass wenn ich die "HANS7777" Nummer ausgeschlossen habe, trotzdem die zugehörige DAMPF nummer mitausgegeben habe. Kann man dies irgend wie mit HASH oder ARRAY lösen?

Danke und Gruß
Korkak
Last edited: 2013-07-06 14:35:59 +0200 (CEST)