Opened by Stefan at 2010-09-05 12:17
Hallo zusammen,
ich habe momentan ein Problem mit einer Textdatei, die ich einlesen und in eine DB schreiben muss.
Die Datei lese ich so ein
Und schreibe sie später so in die DB (handle create hab ich mal ausgelassen)
soweit so gut, klappt.
Mein Problem ist, dass ich nun Zeichenketten in der Datei ersetzen muss, bevor ich sie in die DB schreibe. Die Datei sieht inhaltlich so aus:
Es gibt 2 Textblocks, getrennt durch zwei \n.
Ab Zeile 2 des 1. Blocks beginnt jede Zeile mit einem Leerzeichen, das muss entfernt werden.
Der 2. Block darf entgegen dieser Regel durchaus mit einem Leerzeichen beginnen.
Daran scheitere ich nun.
Hat jemand eine Idee wie das in Perl gelöst werden kann?
Danke!
Stefan
Last edited: 2010-09-05 12:22:25 +0200 (CEST)
ich habe momentan ein Problem mit einer Textdatei, die ich einlesen und in eine DB schreiben muss.
Die Datei lese ich so ein
Und schreibe sie später so in die DB (handle create hab ich mal ausgelassen)
Code: (dl
)
$sth->execute("@datei");soweit so gut, klappt.
Mein Problem ist, dass ich nun Zeichenketten in der Datei ersetzen muss, bevor ich sie in die DB schreibe. Die Datei sieht inhaltlich so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
TEXTTEXTTEXTTEXTTEXTTEXT
TEXTTEXTTEXTTEXTTEXTTEX
TEXTTEXTTEXTTEXTTEXTTEX
TEXTTEXTTEXTTEXTTEXTTEX
TEXTTEXTTEXTTEXTTEXTTEX
TEXTTEXTTEXTTEXTTEXTTEXT
TEXTTEXTTEXTTEXTTEXTTEXT
TEXTTEXTTEXTTEXTTEXTTEXT
TEXTTEXTTEXTTEXTTEXTTEXT
Es gibt 2 Textblocks, getrennt durch zwei \n.
Ab Zeile 2 des 1. Blocks beginnt jede Zeile mit einem Leerzeichen, das muss entfernt werden.
Der 2. Block darf entgegen dieser Regel durchaus mit einem Leerzeichen beginnen.
Daran scheitere ich nun.
Hat jemand eine Idee wie das in Perl gelöst werden kann?
Danke!
Stefan
Last edited: 2010-09-05 12:22:25 +0200 (CEST)