Pointer ans Ende der Datei setzen mit seek

[opi]

Hallo,

Aber wenn du Wissen willst was schneller ist  dann solltest du dir mal das Benchmark Modul anschauen. Dann kannst du es selber rausfinden, damit hab ich auch schon ein paar Optimierungen gebaut. Wobei das nicht immer leicht ist, da natürlich bei Dateioperationen auch andere Faktoren eine Rolle spielen.

Ok. Eine letzte Frage habe ich noch.

Die Datei, die ich auslese, fülle ich mit dem folgendem Beispiel:

Auf Aufteilung der Zeile durch Whitespaces sei mal so dahin
geschrieben...

foreach my $zeile (@$zeilen) {
   my $spalten = [ split / /, $zeile ];
   foreach my $spalte (@$spalten) {
      print FILE "$_" . ' ' x 10-lenght($spalte);
   }
   print FILE "\n";
}

Auf diese Weise hat jede Spalte eine Länge von 10 Zeichen.

Kann man das so machen oder ist das sehr umständlich?

Greez,
opi