U
ulrich_kehder
Grünschnabel
Hallo zusammen,
ich bin ein ziemlicher Perl Neuling und habe ein Problem das ich mit Perl lösen möchte.
Ein Programm schreibt in das Verzeichnis: \spool\obj sehr viele Dateien im ASCII Format.
Der Dateiname wird von diesem Programm aufgrund der Programminternen ID Nummer und dem Datum vergeben.
Die Endung erfolgt je nach dem was für ein Job Schritt gerade ausgeführt wurde.
Als Beispiel kann eine Datei folgendermassen heisen: om2246206.1.c532.1.tf2
Mein Problem ist nun das in diesen Dateien (etwa 10000 Stück) je nach dem wie oft das Programm läuft,
nach einem bestimmten Inhalt gesucht werden soll. Als Beispiel die Nummernfolge: 61034709
über alle Datein und im gesammten Verzeichnis.
Mit einem Shell Script und den Befehlen .find und grep geht es leider nicht.
(find . -tyype f | xargs grep -i 61034709)
Da die Files zu groß sind und unsere AIX Version zu alt ist so das ich eine Fehlermeldung bekomme.
Ich möchte daher ein Programm schreiben in Perl, das in dem Verzeichnis die Nummernfolge sucht
und die Filenamen in dem diese Nummerfolge vorkommt in eine Ausgabe Datei schreibt.
Leider habe ich mit Perl noch nichts Programmiert, habt ihr vielleicht eine Lösung für mich wie ich das
bewerkstelligen könnte.
Vielen Dank
Gruß
Uli
ich bin ein ziemlicher Perl Neuling und habe ein Problem das ich mit Perl lösen möchte.
Ein Programm schreibt in das Verzeichnis: \spool\obj sehr viele Dateien im ASCII Format.
Der Dateiname wird von diesem Programm aufgrund der Programminternen ID Nummer und dem Datum vergeben.
Die Endung erfolgt je nach dem was für ein Job Schritt gerade ausgeführt wurde.
Als Beispiel kann eine Datei folgendermassen heisen: om2246206.1.c532.1.tf2
Mein Problem ist nun das in diesen Dateien (etwa 10000 Stück) je nach dem wie oft das Programm läuft,
nach einem bestimmten Inhalt gesucht werden soll. Als Beispiel die Nummernfolge: 61034709
über alle Datein und im gesammten Verzeichnis.
Mit einem Shell Script und den Befehlen .find und grep geht es leider nicht.
(find . -tyype f | xargs grep -i 61034709)
Da die Files zu groß sind und unsere AIX Version zu alt ist so das ich eine Fehlermeldung bekomme.
Ich möchte daher ein Programm schreiben in Perl, das in dem Verzeichnis die Nummernfolge sucht
und die Filenamen in dem diese Nummerfolge vorkommt in eine Ausgabe Datei schreibt.
Leider habe ich mit Perl noch nichts Programmiert, habt ihr vielleicht eine Lösung für mich wie ich das
bewerkstelligen könnte.
Vielen Dank
Gruß
Uli