Datenformatierung (gelöst) (Allgemeines zu Perl)

[thread]16445[/thread]

Datenformatierung [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+4 replies
Gast tobias

2011-06-22 16:00
Hallo,

ich hätte eine Frage zu einer Perl-Problemstellung und es wäre super, wenn mir jemand helfen könnte.

Es soll eine Textdatei names "temperatur.inp" eingelesen werden, welche folgenden Inhalt hat:
Code: (dl )

1 2 3 4 5

1 570.3 75126 123.1 75127 122.9 177177 403.3 177178 470.2
Anschließend soll mittels perl eine Ausgabedatei erzeugt werden, welche zwischen den ersten und den zweiten Zahlenwert ein Komma setzt. Mein Script hierfür sieht momentan folgendermaßen aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

use Math::Trig; $input1='temperatur.inp'; $output1='temperatur.out'; open inp1,"<$input1"; open out1,"> $output1"; # Zerlege in einzelne Zeilen @Zeilen=<inp1>; # Anzahl der Zeilen $end=@Zeilen; for ($i=0;$i<$end;$i=$i+1) { @vals = split(/\s+/,$Zeilen[$i]); print out1 "$vals[1],$vals[2]\n"; } close inp1; close out1;
Das Problem, ist nun, dass das Script zwar die Zeilen am Anfang erkennt, jedoch die ohne Leerzeichen nicht mehr. Meine Ausgabe sieht deshalb folgendermaßen aus ("temperatur.out"):
Code: (dl )

1 2 3 4 5

1,570.3 75126,123.1 75127,122.9 403.3, 470.2,
Es wäre super, wenn mir jemand bei diesem Problem helfen könnte!
Mit freundlichen Grüßen,

Tobias
Last edited: 2011-06-22 16:30:20 +0200 (CEST)
- Linuxer
  
  2011-06-22 16:37
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Das Problem ist, dass die letzten Zeilen nicht mehr mit einem Leerzeichen beginnen und die für Dich relevanten Daten damit nicht mehr in $val[1] und $val[2] liegen, sondern in $val[0] und $val[1].
  
  Ich würd es gleich beim Einlesen splitten und dabei Perl-Magic verwenden; nachzulesen in perldoc -f split
  
  ungetestet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  # ... other code while ( <inp1> ) { # split at whitespaces and ignore leading whitespaces... my @val = split; print out1 join ",", @val; } close inp1; close out1;
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- payx
  
  2011-06-22 16:46
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo Tobias,
  
  wenn es schnell gehen soll (d.h. das Script ansonsten nicht optimiert werden soll), kannst Du im Loop zunächst die leading spaces entfernen $Zeilen[$i]=~s/^\s+//;, dann wie gehabt splitten und dann print out1 "$vals[0],$vals[1]\n";.
  
  HTH
  Grüße
  payx
  - Gast Tobias
    
    2011-06-27 08:07
    
    Super, vielen Dank! Funktioniert einwandfrei!
    Last edited: 2011-06-27 09:15:52 +0200 (CEST)

View all threads created 2011-06-22 16:00.