If-Abfrage über Wertebereich (Allgemeines zu Perl)

[thread]17499[/thread]

If-Abfrage über Wertebereich

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+12 replies
Gast HP-User

2012-06-19 21:07
Abend Leute

Hab wieder ein wenig Zeit gefunden, nach Feierabend an meinem Programm rumzutüfteln *g*

Der Auszuwertende String hat das Format: KG 000 X

Wobei "KG" immer da sein muss. Die Werte "000" können alle Zahlen im Bereich von 000 bis 999 annehmen. Das X darf nur die Werte "J", "M" und "A" haben.

1. Schritt: Ich zerlege den String in einen Gruppenstring (die ersten beiden Positionen). Dann die jeweiligen Zahlen (jede Null einzeln). Und den letzten Wert des Strings.

2. Schritt: Ich fahre eine If-Auswertung.

3. Schritt: Ich schaffe mir die Möglichkeit, Zwischenauswertungen in Statusskalare zu speichern.

Das Ganze sieht momentan so aus (Auszug):
Code: (dl )

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

########################################## # Precise-Input-Check (PIC) / Story-Code # ########################################## my $gruppenstatus = "N"; my $zahl1status = "N"; my $zahl2status = "N"; my $zahl3status = "N"; my $kennstatus = "N"; my $gruppenstelle = substr($customstorycode, 0, 2); my $zahl1stelle = substr($customstorycode, 2, 1); my $zahl2stelle = substr($customstorycode, 3, 1); my $zahl3stelle = substr($customstorycode, 4, 1); my $kennstelle = substr($customstorycode, 5, 1); if ($gruppenstelle eq "KG") {$gruppenstatus = "Y";} if ($kennstelle eq "J") {$kennstatus = "Y";} if ($kennstelle eq "M") {$kennstatus = "Y";} if ($kennstelle eq "B") {$kennstatus = "Y";} if ($gruppenstatus eq "Y" and $zahl1status eq "Y" and $zahl2status eq "Y" and $zahl3status eq "Y" and $kennstatus eq "Y") { goto FirstCheckOK;} goto StoryCodeUmfangError;
Was jetzt hier noch fehlt ist die Abfrage, ob die drei Nullen in der Mitte des Strings auch nur Zahlenwerte enthalten.

Mit meiner Methode würde das für jede "Null" so aussehen:
Code: (dl )

1 2 3 4

if ($zahl1stelle eq "0") {$zahl1status = "Y";} if ($zahl1stelle eq "1") {$zahlstatus = "Y";} if ($zahl1stelle eq "2") {$zahl1status = "Y";} if ($zahl1stelle eq "usw...") {$zahl1status = "Y";}
Und dies für alle drei Skalare Zahl1/2/2... über alle Werte von 0-9 !!!

Das würde zwar funktionieren, aber geht es nicht auch einfacher?

Gruß HP-User

PS.: Na da habt ihr mal ein dickes Brot zum knabbern bekommen *grins*
---Nur Spass!--
Last edited: 2012-06-19 21:43:10 +0200 (CEST)
- +5 replies
- Gast Muffi
  
  2012-06-19 22:00
  Kann es sein, dass man deinen ganzen Code kürzen kann auf
  
  Code (perl): (dl )
  
  1 2
  
  if ($string =~ /^KG \d{3} [JMA]$/) { ...
  - +4 replies
  - geloescht
    
    2012-06-19 22:32
    
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hi Muffi
    
    Kann schon sein, daß man meinen Code kürzen kann, deshalb frag ich ja *zwinker*
    
    Allerdings weiß ich jetzt nicht so genau, was dein Code den so macht?
    
    Grüsse
    
    HP-User
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - +3 replies
    - Gast Muffi
      
      2012-06-19 22:38
      
      Der Code schaut, ob $string mit KG beginnt, dann ein Leerzeichen kommt, dann Ziffer (= \d) 3 mal, dann Leerzeichen, dann irgendwas aus der Menge J,M oder A und dann der String aus ist
      Last edited: 2012-06-19 22:43:35 +0200 (CEST)
      - +2 replies
      - geloescht
        
        2012-06-19 22:57
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi Muffi
        
        Guest Muffi
        Der Code schaut, ob $string mit KG beginnt, dann ein Leerzeichen kommt, dann Ziffer (= \d) 3 mal, dann Leerzeichen, dann irgendwas aus der Menge J,M oder A und dann der String aus ist
        
        Ähm - stopp: Ich hab das nur zur Verdeutlichung auseinander geschrieben. Ein gültiger String sähe bsp. so aus: "KG123J".
        
        Schaut der auch nach, ob die "123" in meinem Beispiel Zahlen sind, und nichts anderes?
        
        Gruß HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        Linuxer
        
        2012-06-19 23:13
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Wenn die Leerzeichen nicht im String vorkommen, lass sie aus der Regex raus.
        
        Code (perl): (dl )
        
        1 2 3
        
        if ($string =~ /^KG\d{3}[JMA]$/) { #... }
        
        \d{3} steht für drei aufeinanderfolgende Zeichen der Klasse "digit"; digit steht für die Ziffern 0 bis 9.
        
        Wenn die drei Zeichen, die auf den String "KG" folgen, keine drei Ziffern sind, dann ergibt der Regex keinen Treffer.
        
        Es gibt auch ein Perl-Modul, mit dem man sich Regex erklären lassen kann: YAPE::Regex::Explain
        
        Code: (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
        
        host:prompt> perl -MYape::Regex::Explain -le " my $p = YAPE::Regex::Explain->new(qr{^KG\d{3}[JMA]$}); print $p->explain();" The regular expression: (?-imsx:^KG\d{3}[JMA]$) matches as follows: NODE EXPLANATION ---------------------------------------------------------------------- (?-imsx: group, but do not capture (case-sensitive) (with ^ and $ matching normally) (with . not matching \n) (matching whitespace and # normally): ---------------------------------------------------------------------- ^ the beginning of the string ---------------------------------------------------------------------- KG 'KG' ---------------------------------------------------------------------- \d{3} digits (0-9) (3 times) ---------------------------------------------------------------------- [JMA] any character of: 'J', 'M', 'A' ---------------------------------------------------------------------- $ before an optional \n, and the end of the string ---------------------------------------------------------------------- ) end of grouping ----------------------------------------------------------------------
        
        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!
- +6 replies
- topeg
  
  2012-06-19 22:03
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Ich verstehe noch nicht was du machen willst, willst du den String nur Identifizieren, oder mit den werten etwas machen?
  
  Das Identifizieren ist ganz einfach:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  my @examples=( 'KG 001 J', 'KG 003 M', 'KG 004 A', 'KG 007 X', 'KG 020 M', 'KG 045 A', 'KG 1234 J', ); for my $string (@examples) { if($string=~/KG\s(\d{3})\s([JMA])/) { my ($number,$suffix)=($1+0,$2); print "$string => "; print "NUMBER: $number "; print "SUFFIX: $suffix\n"; } }
  
  Oder willst du mehr damit machen?
  - +5 replies
  - geloescht
    
    2012-06-19 22:17
    
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hallo topeg
    
    Es ist so:
    Der Client gibt unter anderen Angaben auch einen "Story-Code" ein. Dieser Wert wurde bereits konditioniert und stimmt in der Länge exakt nach oberem Schema überein.
    
    Ich muss nun Prüfen, ob dieser Wert $customstorycode auch:
    A) Tatsächlich mit "KG" beginnt.
    B) den Zahlenbereich von 000 bis 999 beinhaltet (nur Zahlen, keine anderen Zeichen)
    C) das letzte Zeichen in dem String ein "J", "M" oder "A" ist.
    
    Erst wenn A, B und C zutreffen (wahr sind), darf mit dem Skalar $customstorycode weitergearbeitet werden. Andernfalls muss auf den Fehlerblock "StoryCodeUmfangError" verwiesen werden.
    
    Ich hoffe es ist etwas klarer geworden.
    
    Gruß HP-User
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - Linuxer
      
      2012-06-19 22:43
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Soweit ich das gerade sehe, werden alle 3 Bedingungen von der Regex-Prüfung überprüft; sowohl bei Muffis als auch bei topegs Lösung.
      
      Wobei bei topegs Lösung noch die Anker fehlen; da ergibt die Prüfung ein WAHR sobald irgendwo in einem String das Muster gefunden werden kann; während Muffi die Anker gesetzt hat.
      
      Doku-Hinweise:
      http://perldoc.perl.org/perlretut.html
      http://perldoc.perl.org/perlrequick.html
      http://perldoc.perl.org/perlre.html
      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!
    - +3 replies
    - topeg
      
      2012-06-19 22:46
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Der reguläre Ausdruck ^KG \d{3} [JMA]$ prüft ob ein String dem von dir definierten Format entspricht.
      Das kannst du in einem if verwenden:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      my $customstorycode=kommt_von_irgendwo(); if($customstorycode=~/^KG \d{3} [JMA]$/) { verabeite_weiter($customstorycode); } else { verabeite_weiter('StoryCodeUmfangError'); }
      - +2 replies
      - geloescht
        
        2012-06-19 23:20
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi topeg und Muffi
        
        Der "Würmchencode funktioniert tatsächlich!
        So hab ichs gemacht (leerzeichen aus muffis Code entfernt:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        ########################################## # Precise-Input-Check (PIC) / Story-Code # ########################################## if ($customstorycode =~ /^KG\d{3}[JMA]$/) { goto FirstCheckOK;} goto StoryCodeUmfangError; FirstCheckOK:
        
        @topeg:
        Dieses "else" in deiner if-Abfrage wird dann ausgeführt, wenn der if-Teil nicht zutrift? Oder immer?
        
        Ich hab das Basic-Like mit goto und einer Sprungmarke Umschifft - nicht schön aber selten *hehe*
        
        Muss langsam zum Ende kommen - Morgen wieder früh raus!
        Dann haben "wir" heute schon wieder Einstücken Programmcode bewältigt!
        
        Danke an alle, die geholfen haben. So Musterabfragen mit "Würmchencode" - alias reguläre Ausdrücke sind halt schon "Upper-Class"-Knowledge!
        
        In diesem Sinne Gute Nacht
        
        Gruß HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        topeg
        
        2012-06-19 23:43
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Der Block nach else wird nur ausgeführt wenn die Bedingung bei if nicht wahr ist.
        
        Ich muss sagen ich bekomme nostalgische Kopfschmerzen wenn ich daran denke das du mit goto hantierst. Zu deinem eigenen Seelenfrieden, bitte lerne mit Funktionen umzugehen. Ich will dir nur Ärger ersparen.
        Früher, als ich ganz jung war, habe ich so programmiert. Einen einzigen Fehler bei einem goto habe ich gemacht und suchte zwei Wochen danach. Es funktionierte nichts mehr. Letztendlich habe ich 6000 Zeilen Code neu geschrieben, mit Funktionen.
        
        EDIT:
        
        Dazu muss ich auch sagen, dass das Basic mit GOTO string$ klar kam, also auch einen String nahm in dem der Name des Ankers stand.
        Last edited: 2012-06-19 23:51:40 +0200 (CEST)

View all threads created 2012-06-19 21:07.