Missing Value (gelöst) (Allgemeines zu Perl)

[thread]15258[/thread]

Missing Value [gelöst]

Leser: 21

Articles: hide open all | hide show old branches

+9 replies
lukastonner

2010-07-07 11:58
User since
2010-02-07
47 Artikel
BenutzerIn
Hallo,
Ich habe wieder mal ein Problem mit der Stringverarbeitung. Ich habe ein Datensatz der in
"@eingangsdaten" folgendermaßen vorhanden ist:

2010-07-06T17:00:00;11.23;-5.5;;4;1.7;180;28;00090000
2010-07-06T18:00:00;53.48;-5.425;;;;180;28;00099900
. . . .
. . . .
2010-07-07T00:00:00;51;10;15.9;6;2.7;230;15;00000000

Die 9er am Ende der Datenzeile weisen auf einen Fehlwert hin, d.h zwischen aufeinanderfolgenden Semikolons müsste eigentlich ein Wert stehen.Im nächsten Schritt zerlege ich den String wieder um die Daten zu sortieren und weiterzuverarbeiten:
Code: (dl )

1 2 3 4 5

# Ab hier werden die Datenzeilen wieder zerlegt for ($i=0; $i<=$#eingangsdaten;$i++) { ($Datum,$Wert1,$Wert2,$Wert3,$Wert4,$Wert5,$Wert6,$Wert7,$Wert8) = split(/;/,$eingangsdaten[$i]); ... ...
Die Weiterverarbeitung funktioniert auch, aber vor der Sortierung möchte ich die Fehlwerte durch -999.999 ersetzen.
Last edited: 2010-07-07 14:09:58 +0200 (CEST)
- +8 replies
- moritz
  
  2010-07-07 12:08
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  2010-07-07T09:58:08 lukastonner
  
  Code: (dl )
  
  for my $element (@$eingangsdaten) {
  
  aber irgendwie will er nichts hineinschreiben......hat jemand eine Idee?
  
  Vorher hast du @eingangsdaten geschrieben, nicht @$eingangsdaten.
  
  Starte deine Programme mit
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  Das hilft, solche Fehler zu vermeiden.
  
  Siehe auch: UseStrict
  Perl 6 - Perls Zukunft
  - +7 replies
  - lukastonner
    
    2010-07-07 13:22
    
    User since
    2010-02-07
    47 Artikel
    BenutzerIn
    
    ok,
    aber egal wie ich die eingangsdaten deklariere....die Methode ist falsch wie ich versuche die Fehlwerte zu füllen.
    - +6 replies
    - Linuxer
      
      2010-07-07 13:26
      
      User since
      2006-01-27
      3872 Artikel
      HausmeisterIn
      
      Was heißt für Dich jetzt "die Methode ist falsch"? "Methode" wie in Objekt-Orientierung?
      
      Zeige doch mal ein zusammenhängendes minimales Code-Beispiel, dass Dein Problem darstellt, mit dem man arbeiten kann.
      
      So ist nur Raten und zwischen-den-Zeilen-Erahnen möglich...
      
      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!
      - +5 replies
      - lukastonner
        
        2010-07-07 14:24
        
        User since
        2010-02-07
        47 Artikel
        BenutzerIn
        
        sorry, der gepostete code irritierte nur, habe ihn entfernt. Mein Problem ist die Datenzeilen so zu bearbeiten, daß die Fehlwerte (gekennzeichnet durch mindestens 2 Semikolons die aufeinanderfolgen) erkannt werden und durch -999.999 ersetzt werden,-bevor ich die Daten weiter verarbeite. Wenn ich leere Felder hätte, wüsste ich wie man das machen kann (deswegen das alte codebeispiel).....
        
        +4 replies
        
        moritz
        
        2010-07-07 14:31
        
        User since
        2007-05-11
        923 Artikel
        HausmeisterIn
        
        Gar keinen Code zu zeigen hilft aber auch nicht.
        Perl 6 - Perls Zukunft
        
        +3 replies
        
        lukastonner
        
        2010-07-07 14:38
        
        User since
        2010-02-07
        47 Artikel
        BenutzerIn
        
        wenn ich eine idee hätte würde ich sie natürlich auch zeigen. hatte es mit der geposteten Methode versucht, das hatte aber wie schon gesagt nicht funktioniert.....
        
        +2 replies
        
        Linuxer
        
        2010-07-07 14:42
        
        User since
        2006-01-27
        3872 Artikel
        HausmeisterIn
        
        Eine Variante:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        #! /usr/bin/perl use strict; use warnings; my @data = qw( 1;foo;bar 2;;fuzz 3;bar;foo ); for my $line ( @data ) { # splitte zeile; leere Elemente werden mit '-999.999' aufgefüllt my ( $eins, $zwo, $drei ) = map { length $_ ? $_ : '-999.999' } split m{;}, $line; print "$eins, $zwo, $drei\n"; } __END__
        
        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!
        
        lukastonner
        
        2010-07-07 16:12
        
        User since
        2010-02-07
        47 Artikel
        BenutzerIn
        
        vielen dank!!!

View all threads created 2010-07-07 11:58.