Substring auf Vorhandensein überprüfen (gelöst) (Allgemeines zu Perl)

[thread]15031[/thread]

Substring auf Vorhandensein überprüfen [gelöst]

Leser: 20

Articles: hide open all | hide show old branches

+10 replies
Gast Thomas

2010-05-17 16:39
Hallo zusammen,

ich habe eine Textdatei vor mir, die Zahlenreihen in 4 Spalten enthält,z.B.
Code: (dl )

0 000123456 Name 07/09 86,00 7,00 79,00R 0,00
Diese greife ich per substr ab und speichere Sie in einem Array, um später mit ihnen rechnen zu können.
Jetzt tritt ab und zu eine Zeile mit nur 3 Spalten auf, z.B.
Code: (dl )

Vorname 8,00N
Dann tritt ein Fehler auf, weil ich ja in der 4.Spalte substringe, die es aber gar nicht gibt. (Etwa in der Art: Substring outside of String.)
Ich versuche, das per
Code (perl): (dl )

1 2 3 4

if (substr($line,73,8) =~ /(\d?\.?\d?\d?\d?\,\d\d)/) { push (@neuer_stand, toZahl(substr($line,73,8))); }
abzufangen, bekomme aber trotzdem noch die Meldung
Code: (dl )

1 2

substr outside of string at H:/summenpruefung.pl line 71, <$FH> line 3104. Use of uninitialized value in pattern match (m//) at H:/summenpruefung.pl line 71, <$FH> line 3104.
Daher meine Frage: Kann ich irgendwie überprüfen, ob ein Substring existiert, bevor ich ihn abfrage? Mit "exists" scheint das ja nicht zu gehen.

Vielen Dank für Eure Hilfe!
Last edited: 2010-05-17 16:41:40 +0200 (CEST)
- +2 replies
- bianca
  
  2010-05-17 16:44
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Gibt es denn garkein Trennzeichen für die einzelnen Spalten?
  10 print "Hallo"
  20 goto 10
  - Gast Thomas
    
    2010-05-17 16:46
    
    Leider nein, so wie ich das sehe. Reiner Text.
    Last edited: 2010-05-17 16:52:30 +0200 (CEST)
- topeg
  
  2010-05-17 16:56
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Man kann die Zeile auch direkt so zerlegen wie man es will:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  if(my @elements=$line=~m!(\d+)\s+(\d+)\s+(\w+)\s+(\d+/\d+)\s+(\d+,\d+)\s+(\d+,\d+\w+)\s+(\d+,\d+)!) { print "@elements\n"; } elsif(my @elements=$line=~m!(\w+)\s+(\d+,\d+\w+)!) { print "@elements\n"; } else { print "Unbekanntes Zeilenformat\n"; }
  
  oder
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  my @elements=split(/\s+/,$line); if(@elements==6) { print "@elements\n"; } elsif(@elements==3) { print "@elements\n"; } else { print "Unbekanntes Zeilenformat\n"; }
  
  Last edited: 2010-05-17 16:57:47 +0200 (CEST)
- +2 replies
- Linuxer
  
  2010-05-17 18:29
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hi,
  
  es wäre auch eine Lösung mit split() denkbar.
  Hier ist u.U. die Daten-Spezifikation zu berücksichtigen (wann ist welche Spalte gefüllt)...
  
  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 23 24 25 26 27 28 29 30 31 32
  
  #!/usr/bin/perl use strict; use warnings; while ( my $line = <DATA> ) { # nutze Magie von Perl's split() operator; Details: perldoc -f split my @fields = do { local $_ = $line; split; }; my $anzahl = @fields; # anzahl kontrollieren if ( 8 == $anzahl ) { local $, = ' '; print $anzahl, ':', @fields[3..6], "\n"; } elsif ( 2 == $anzahl ) { # vielleicht weitere checks um zu erfahren, welche Spalten man erwischt local $, = ' ', print $anzahl, ':', @fields, "\n"; } # Fehlerfall else { local $, = ' '; print $anzahl, ':', @fields, "\n"; } } __DATA__ 0 000123456 Name 07/09 86,00 7,00 79,00R 0,00 Vorname 8,00N
  
  Wenn die Spalten immer fixe Größen haben, könnte man auch mit unpack() arbeiten; evtl. nachdem man die Länge
  der Datenzeile verglichen hat (wenn verschiedene Längen auftauchen können, wie im Beispiel)...
  Aber dazu wäre die Datenspezifikation interessant...
  
  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!
  - Linuxer
    
    2010-05-17 19:29
    User since
    2006-01-27
    3870 Artikel
    HausmeisterIn
    
    Und hier ein Beispiel zum unpack().
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    #! /usr/bin/perl use strict; use warnings; while ( my $line = <DATA> ) { chomp $line; print "Zeile $.:\n"; ## KONTROLLE # Feldgroessen grob erraten anhand erster Datenzeile my @fields = unpack("AA11A15A11A12A11A13A6", $line); s/^\s+// for @fields; # fuehrende Leerzeichen aus Feldern entfernen print ">$_<\n" for @fields; ## KONTROLLE } __DATA__ 0 000123456 Name 07/09 86,00 7,00 79,00R 0,00 Vorname 8,00N
    
    Anmerkung:
    Ich habe die zweite Datenzeile modifiziert..., damit es hier ins Beispiel-Schema passt.
    Ob Du (Gast Thomas) das so verwenden kannst, musst Du entscheiden.
    Wenn es passt, musst Du sicherlich die Feldgrößen auf die korrekten Werte setzen.
    
    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!
- +4 replies
- MatthiasW
  
  2010-05-17 19:26
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Du könntest vor dem Zerlegen die Zeile bis zur benötigten Länge auffüllen:
  
  Code (perl): (dl )
  
  1 2
  
  # $min_length = 73; $line .= ' ' while length $line < $min_length;
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +3 replies
  - murphy
    
    2010-05-17 19:51
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Leserlicher fände ich es, das nicht mit einer Schleife zu erledigen:
    
    Code (perl): (dl )
    
    $line .= " " x (73 - length($line));
    
    When C++ is your hammer, every problem looks like your thumb.
    - MatthiasW
      
      2010-05-17 19:59
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Hast natürlich recht (wo war ich nur in Gedanken?)
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - Gast Thomas
      
      2010-05-19 11:14
      
      Genau so habe ich es jetzt gemacht und es läuft ohne Fehlermeldung!
      
      Vielen Dank für Eure Hilfe!
      Last edited: 2010-05-19 11:17:00 +0200 (CEST)

View all threads created 2010-05-17 16:39.