In while Schleife vorherige Zeile ermitteln (Allgemeines zu Perl)

[thread]16676[/thread]

In while Schleife vorherige Zeile ermitteln

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
Gast Mat

2011-08-31 17:04
Hallo Perl Gemeinde

ich lese die serielle Schnittstelle ein. Danach splite ich die Eingabe für die Verarbeitung. Nun möchte ich, dass wenn "$message" das gleiche enthält wie "$message" bis zehn schleifen zuvor, das Skript nichts macht (print ""). Muss ich eine neue Schleife nach dem Aufspliten machen oder ist es komplizierter als angenommen?
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

... open(LOG,">>${LOGDIR}/${LOGFILE}") ||die "Logfile kann nicht geöffnet werden\n"; select(LOG), $| = 1; open(DEV, "<$PORT") || die "Kann den Port $PORT: $_ nicht öffnen"; while($_ = <DEV>){ # Aufspliten der Nachricht für die Verarbeitung ($start, $ric, $date, $time, $message, $end) = split(/::/, $_); print $message; } undef $ob;
Last edited: 2011-08-31 17:21:31 +0200 (CEST)
- +4 replies
- Gast wer
  
  2011-08-31 17:32
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  use strict; use watnings; #... my @messages; open(my $dev, '<', $PORT) || die "Kann den Port $PORT: $_ nicht öffnen"; while(my $line=<$dev>) { # Aufspliten der Nachricht für die Verarbeitung my ($start, $ric, $date, $time, $message, $end) = split(/::/, $line); next if( grep{$message eq $_}@messages ); push(@messages,$message); pop(@messages) while(@messages > 10); print $message; }
  
  Last edited: 2011-08-31 17:42:33 +0200 (CEST)
  - +3 replies
  - Gast Mat
    
    2011-08-31 21:09
    Danke "wer"
    
    Ich habe mal deinen Code implementiert. Irgendetwas funktioniert aber noch nicht vollständig. Das heisst, dass nun nicht mehr alles ins Logfile geschrieben wird aber trotzdem gibt es gleiche "$messages" auch wenn ich von 10 auf 30 erhöhe.
    
    Hat sich hier ein Schreibfehler eingeschlichen?
    Müsstest es nicht $dev statt $_ heissen? Oder vor lauter $messages ein "s" zu viel oder zu wenig?
    
    Code (perl): (dl )
    
    1 2 3
    
    next if( grep{$message eq $_}@messages ); push(@messages,$message); pop(@messages) while(@messages > 10);
    
    Danke für den Support
    Mat
    Last edited: 2011-08-31 21:20:11 +0200 (CEST)
    - Linuxer
      
      2011-08-31 22:33
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Die Variable $_ ist in diesem Fall die Laufvariable des grep().
      
      Hier wird geprüft, ob es ein Element in @messages gibt, das mit dem Wert in $message übereinstimmt.
      
      Wenn Du anstatt $_ eben $dev einsetzt, dann wird eben für jedes Element überprüft, ob $message mit $dev übereinstimmt. Was im jeweiligen Element aus dem Array @messages steht, ist dann vollkommen irrelevant.
      
      Und warum möchtest Du die $message (die vermutlich einen einfachen String enthält) mit $dev vergleichen (das einen Filehandle beinhaltet; sprich einen Datenstruktur, mit deren Hilfe Perl aus Dateien liest)?
      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
      
      2011-08-31 23:00
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Ich verstehe Deine Angaben nicht so ganz. So habe ich es eingangs verstanden.
      
      Du liest einen Datenstrom zeilenweise
      Jede Zeile ist in Felder aufgeteilt
      Wenn das Feld "Message" der aktuellen Zeile nicht in den letzten 10 Zeilen enthalten war, darf es ausgegeben werden
      Wenn doch, soll die Message nicht ausgegeben werden
      Es können immer noch doppelte "Messages" in der Ausgabe auftauchen, wenn sie im originalen Datenstrom mehr als 10 Zeilen auseinander liegen
      
      Mein Lösungsansatz:
      
      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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
      
      #... # Datenstrom zeilenweise lesen while ( my $line = <DATA> ) { # Felder auftrennen (zum Testen vereinfacht und Zeilenumbruch rausgeworfen) my ( $start, $message ) = split /::|\n/, $line; # Feld "Message" wird nur ausgegeben, wenn es NICHT in den letzten 10 Zeilen enthalten war # Zur Kontrolle geben wir auch mal die letzten 10 "Message"s aus # und auch die Nummer der aktuellen "Message" print "$start : $message | @messages\n" unless grep { $message eq $_ } @messages; # aktuelle "Message" merken push @messages, $message; # aelteste "Message" loeschen, wenn es mehr als 10 geworden sind (FIFO) shift @messages if 10 < @messages; } __DATA__ 01::Anton 02::Berta 03::Caesar 04::Berta 05::Berta 06::Caesar 07::Berta 08::Berta 09::Caesar 10::Berta 11::Berta 12::Caesar 13::Berta 14::Berta 15::Caesar 16::Berta 17::Berta 18::Caesar 19::Berta 20::Dora 21::Berta 22::Caesar 23::Berta 24::Dora 25::Berta 26::Caesar 27::Berta 28::Dora 29::Berta 30::Caesar 31::Berta 32::Dora 33::Anton
      
      Last edited: 2011-08-31 23:07:04 +0200 (CEST)
      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!

View all threads created 2011-08-31 17:04.