while-Schleife mit Bedingung als RegEx und Start von foreach-zeiger? (Allgemeines zu Perl)

[thread]19220[/thread]

while-Schleife mit Bedingung als RegEx und Start von foreach-zeiger?

Tags: perl6 Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+10 replies
bandchef

2014-08-04 14:38
User since
2014-05-05
15 articles
BenutzerIn
Hi Leute!
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

foreach $fileLineZF(<ZFFILE>) { if(#irgendeine RegEx) { #mein Code } elsif(#irgendeine RegEx) { #Ich möchte hier nun mit der bisher erreichen Zeile der foreach-Schleife und einer while-schleife weitermachen. } }
Wie kann ich im elsif mit einer while-Schleife, welche als Bedingung eine weitere RegEx bekommt, weitermachen? Die while-Schleife soll als Startwert die nächste Zeile der vorherigen foreach-Schleife bekommen.

Wie geht das? Kann mir jemand helfen?

Danke!
Last edited: 2014-08-04 14:41:07 +0200 (CEST)
- +5 replies
- clms
  
  2014-08-04 15:04
  User since
  2010-08-29
  373 articles
  BenutzerIn
  2014-08-04T12:38:54 bandchef
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  foreach $fileLineZF(<ZFFILE>) { if(#irgendeine RegEx) { #mein Code } elsif(#irgendeine RegEx) { #Ich möchte hier nun mit der bisher erreichen Zeile der foreach-Schleife und einer while-schleife weitermachen. } }
  
  Wie kann ich im elsif mit einer while-Schleife, welche als Bedingung eine weitere RegEx bekommt, weitermachen? Die while-Schleife soll als Startwert die nächste Zeile der vorherigen foreach-Schleife bekommen.
  
  Warum willst Du außen unbedingt eine foreach-Schleife haben?
  
  Die Semantik von foreach bedeutet, dass der ganze File auf einen Schlag in ein Array gelesen wird, dass dann anschließend abgearbeitet wird. (In der Praxis optimiert Perl hier AFAIK normalerweise, so dass der File doch nur zeilenweise gelesen wird)
  
  Probiere es doch mit zwei ineinandergeschachtelten while-Schleifen
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  while (my $line = <ZFILE>) { if ($line =~ /.../) { ...; } elsif ($line =~ /.../) { while ($line = <ZFILE>) { ...; } } }
  
  Wenn Du beim ersten Durchlauf der inneren while-Schleife die Zeile verwenden willst, die Du auch beim elsif-Match verwendet hast, musst Du die innere Schleife durch do {...} while (...); ersetzen.
  - Muffi
    
    2014-08-04 15:27
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    2014-08-04T13:04:29 clms
    Die Semantik von foreach bedeutet, dass der ganze File auf einen Schlag in ein Array gelesen wird, dass dann anschließend abgearbeitet wird. (In der Praxis optimiert Perl hier AFAIK normalerweise, so dass der File doch nur zeilenweise gelesen wird)
    
    Hab ich auch mal gedacht, ist aber wohl nicht so
    
    msg #173400
    1 + 1 = 10
  - +3 replies
  - bandchef
    
    2014-08-05 10:37
    User since
    2014-05-05
    15 articles
    BenutzerIn
    
    Naja, also "unbedingt" will ich keine foreach haben. Mir ist das egal hauptsache es funktioniert :D
    
    Durch das elsif Stelle ich durch eine RegEx fest, ob ein gewisser Teil in der Zeile steht. mit der while will ich eigentlich im Argument der while Schleife nur weiterschalten, wenn der gewisse Teil der nachfolgenden Zeile mit dem gewissen Teil der vorhergehenden Zeile übereinstimmt.
    
    Irgendwie kapier ich aber nicht, wie ich das machen soll...
    
    Hier mein Beispiel:
    
    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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
    
    while($fileLineZF = <ZFFILE>) { if(($fileLineZF =~ /^F\s+.*FktTyp=CopTel\s+DBus=(\S+)\s+DTel=$DestID\s+Snd=Y\s*$/)) #check CopTel-Messages { print $fileLineZF; $zfCounterFound++; $DBusZF = $1; #$zfCounterFound = 0; if($DBusZF eq "D_CAN") #D-CAN { #print "TEST: $DBusZF\n"; $numOfMessages_DCAN_CAN1 += 50; } elsif($DBusZF eq "Body-CAN") #Body-CAN { #print "TEST: $DBusZF\n"; $numOfMessages_BodyCAN_CAN2 += 50; } elsif($DBusZF eq "Body2-CAN") #Body2-CAN { #print "TEST: $DBusZF\n"; $numOfMessages_Body2CAN_CAN3 += 50; } elsif($DBusZF eq "FA-CAN") #FA-CAN { #print "TEST: $DBusZF\n"; $numOfMessages_FACAN_CAN4 += 50; } elsif($DBusZF eq "IuK-CAN") #IUK-CAN { #print "TEST: $DBusZF\n"; $numOfMessages_IUKCAN_CAN5 += 50; } elsif($DBusZF eq "ZSG-CAN") #ZSG-CAN { #print "TEST: $DBusZF\n"; $numOfMessages_ZSGCAN_CAN6 += 50; } } elsif($fileLineZF =~ /^F\s+.*FktTyp=CopSig\s+DBus=(\S+)\s+DTel=(\d+)\s+Snd=Y\s*$/) #Check CopSig-Messages { #Konzept: #Zeilen-Pointer übernehmen und so lange weiterzählen lassen, bis wir auf eine #neue Zeile stoßen, oder das DTel nicht mehr mit den vorhergegangen DTels übereinstimmt. #Wenn neue Zeile kommt und alle DTels bis dahin gleich waren, dann die Nachricht zählen; #ansonsten abbrechen $predDTel = $2; next; while($fileLineZF = <ZFFILE>) { $fileLineZF =~ /^F\s+.*FktTyp=CopSig\s+DBus=(\S+)\s+DTel=(\d+)\s+Snd=Y\s*$/ $currDTel = $2 if(predDtel eq currDTel) } } }
    
    modedit Editiert von pq: vollzitat entfernt
    Last edited: 2014-08-05 10:49:12 +0200 (CEST)
    - pq
      
      2014-08-05 10:57
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      ich sehe, du deklarierst deine variablen nicht mit my. darf ich dir Modern Perl - The Book empfehlen? http://perl-tutorial.org/
      
      dein code schreibt übrigens nach einem hash.
      zeile 11-40 könnte man so schreiben:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      # weiter oben: my %numOfMessages; ... #print "TEST: $DBusZF\n"; $numOfMessages{ $DBusZF } += 50;
      
      auf die anzahl greifst du dann wie folgt zu:
      $numOfMessages{"IUK-CAN"}
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - clms
      
      2014-08-05 11:33
      
      User since
      2010-08-29
      373 articles
      BenutzerIn
      
      Bei Deinem Code wirst Du die innere while-Schleife nie erreichen, weil Du vorher mit dem next zum Anfang der äußeren Schleife springst.
      
      Bzgl. Hash und Modern Perl kann ich mich pq nur anschließen.
      
      Ich selbst bin ein großer Fan des Modern-Perl-Tutorial. Allerdings kann es sein, dass es für Dich etwas zu knapp geschrieben ist, denn es setzt teilweise voraus, dass man grundsätzlich schon fit im Programmieren ist.
- +3 replies
- clms
  
  2014-08-04 15:29
  
  User since
  2010-08-29
  373 articles
  BenutzerIn
  
  Ich sehe gerade, dass der Thread unter Perl6 läuft.
  Meine Antwort bezieht sich auf Perl5.
  Deine Frage wohl auch, oder gibt es in Perl6 ein foreach?
  - +2 replies
  - Muffi
    
    2014-08-04 15:32
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Nö, mein letzter Stand war: "for" (für for/foreach) und "loop" (für for(...;...;...))
    1 + 1 = 10
    - lichtkind
      
      2014-08-04 16:29
      
      User since
      2004-03-22
      5697 articles
      ModeratorIn + EditorIn
      
      stimmt : while <$FH> geht nicht in Perl 6, nur for <$FH> geht, weil for listkontext forciert.
      Last edited: 2014-08-04 18:53:26 +0200 (CEST)
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
- GwenDragon
  
  2014-08-04 16:40
  
  User since
  2005-01-17
  14816 articles
  Admin1
  
  Verschoben von Raku / Perl 6 nach Allgemeines zu Perl
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2014-08-04 14:38.