Hallo ich habe mehrere Dateien "001234.txt" "002002.txt" "049638.txt"
Diese beinhalten folgende Werte

Hier das Beispiel fuer "001234.txt" (die beiden anderen sehen ähnlich aus)

Wie kann man alle drei in eine einzige einlesen ?
Das Problem ist, dass ich noch gar nicht weiss, wie die zu erwartenden Dateien heissen.
Das einzige was ich genau weiss ist, dass die Endung .txt ist und vor dem Punkt zu 99,9% eine 6-stellige Zahl steht.

Diese, die dann daraus erzeugt wird, wird dann mit einem Script in mysql importiert.

Dateien öffnen geht so: http://wiki.perl-community.de/bin/view/Wissensbasi...
Anschliessend wird die Zeildatei kreiert, in die die Inhalte dann jeweils mittels append-Befehl ans Ende eingefügt werden.

Gruss MisterL

alonso+2008-02-26 21:34:39--

Das Problem ist, dass ich noch gar nicht weiss, wie die zu erwartenden Dateien heissen.
Das einzige was ich genau weiss ist, dass die Endung .txt ist und vor dem Punkt zu 99,9% eine 6-stellige Zahl steht.

Und woher soll dann das Skript wissen, welche Dateien zusammengefügt werden sollen?

Ja, genau das ist ja das Problem.
Ich muss wohl doch den Vorschlag machen, alle relevante Daten in eine einzige Datei (z.B. input.txt) zu schreiben.


Dann wäre das wesentlich einfacher ...

Wenn es eine "feste Regel" gibt, wie die Dateien bestimmt werden können, dann kann man das auch im Skript machen. (Wie machst Du - als Mensch - das?)

Das einfachste wäre natürlich das Programm, dass die Dateien erzeugt, dazu zu bringen alles in eine einzige Datei zu schreiben.

Eigentlich sieht die Sache ganz einfach aus:
man liest alle Dateinamen eines Verzeichnisses aus Rezept im Kochbuch
man prüft mittels Regex, welche Dateinamen auf .txt enden und mit einer sechsstelligen Zahl beginnen. Diese Dateinamen werden in ein neues Array eingelesen, danach geht es mit dem Öffnen der Dateien, dem Auslesen der Inhalte und dem Schreiben derselben in die neue Datei weiter

MisterL+2008-02-27 10:04:42--

man prüft mittels Regex, welche Dateinamen auf .txt enden und mit einer sechsstelligen Zahl beginnen.

Genau da liegt das Problem:

alonso

Das einzige was ich genau weiss ist, dass die Endung .txt ist und vor dem Punkt zu 99,9% eine 6-stellige Zahl steht.

Mit deinem Ansatz kann es passieren, dass Du eine Datei nicht erfasst. Oder vielleicht sind andere Dateien so benannt, dass der Ausdruck matcht aber eigentlich soll die Datei nicht mit berücksichtigt werden.

Deswegen habe ich geschrieben, wenn es eine "feste Regel" gibt, lässt sich das auch im Programm lösen.

Wenn es zu 99,99% mit 6 Ziffern beginnt und auf .txt endet könntest du es wie oben schon erwähnt über einen Regex machen, wie z.B. "^([\d]{6,}).txt"

Könnte in etwa so aus sehen:
... funktioniert zumindest :)

@tecker: Ein paar Anmerkungen:

Da sollten mehr Fehlerbehandlungen rein:

* opendir( DIR, "." ) or die $!;
* open(FILE,">>$file") or die $!;
* ...

Warum liest Du erst alles in ein Array ein und iterierst dann darüber?



if ($_ =~ /^([\d]{6,}).txt/) hier sind sowohl die eckigen als auch die runden Klammern unnötig. Außerdem sollte der Punkt maskiert werden, weil sonst auch "1234567txt" gefunden werden würde. Das {6,} sagt "6 oder mehr". Hier wurde gesagt, dass es wohl genau(!) 6 Zahlen sind, also einfach das "," weglassen. Und es sollte noch der Anker am Ende verwendet werden, sonst würde auch "1234567txttxttxttxt" matchen.

Also if ($_ =~ /^\d{6}\.txt$/)

Stimmt ... unnötig alles erst in ein Array zu lesen. Was ich nur immer an denen toll finde. Naja man lernt ja nie aus :)

Regex war also doch nicht ganz korrekt, danke für Verbesserung!

Achja und Fehlerbehandlung gehört natürlich noch mit dazu.