Zeilen bei bestimmten Inhalt aussortieren (Allgemeines zu Perl)

[thread]13065[/thread]

Zeilen bei bestimmten Inhalt aussortieren

Gast Gast

2009-01-28 15:16

Moin zusammen!

folgende Frage:

Ich zig Dateien mit je mehreren zehntausend Zeilen (Seismik-Messungen, zu denen pro Sekunde etwa 10 zeilen geschrieben werden, über bisher einen Monat hinweg). In die erste Spalte dieser Dateien lasse ich den Dateinamen schreiben, dass soll aber u.a. nur dann passieren, wenn der Dateiname dort nocht nicht steht! Und das funkioniert mit meinen Dateinamen nicht, die sehen beispielsweise so aus:
03120801_002_export (1).txt
Mit Leerzeichen drin usw.. Das Stück aus dem Skript unten funktioniert, wenn $filename ein "vernünftiger" Dateiname ist, aber mit meinen Monster-Dateinamen nicht. Ich wäre dankbar, wenn jemand einen Tip hat, wie ich das machen kann.

Code (perl): (dl )

foreach $zeile (@datei){
  unless (bedingung1 || bedingung2 || $zeile =~$filename){
  $datei[$j]="$filename $datei[$j]";                            
  $j++;                 
   }
}