recv im Hintergrund ausführen (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16952[/thread]

recv im Hintergrund ausführen [gelöst]

Tags: perl5 recv IO::Select Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
campbell-bs

2011-11-30 08:26

User since
2011-11-17
23 Artikel
BenutzerIn

Hallo, ich bastel mir momentan ein Programm für die Kommunikation mit einem Server über UDP zusammen. Mein Programm kann ständig Pakete bekommen, die es dann auch verarbeiten soll. Dazu habe ich bisher die recv-Methode von IO::Select alle 5ms über den Tk-Befehl
$mw->repeat(5 => \&receive); aufrufen lassen.
Dies funktioniert auch, erzeugt aber leider eine nicht unerhebliche Prozessorlast (im Programmleerlauf!). Außerdem ist es theoretisch möglich, dass ich so viele UDP-Pakete aufeinmal bekomme, sodass der Puffer nicht mehr ausreicht und Pakete verloren gehen.

Meine Frage ist nun: Gibt es eine Möglichkeit den recv-Befehl ständig im Hintergrund horchen zu lassen, sodass er sich quasi schlafen legt und nur einen bestimmten Callback aufruft, wenn Daten auf der Socket sind? Das Programm sollte natürlich nebenbei weiter laufen können.
- +4 replies
- campbell-bs
  
  2011-11-30 11:23
  User since
  2011-11-17
  23 Artikel
  BenutzerIn
  Ich habs jetzt schon selbst hinbekommen mit Fork:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  my $pid = fork(); if (not defined $pid) { print "resources not avilable.\n"; } elsif ($pid == 0) { while(1){ &receive; } } else { MainLoop; }
  
  In receive ist dann die Selectmethode mit:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  while($select->can_read(10)){ my $msg_in; #Textempfang $socket->recv($msg_in, $MAXLENGTH); unpackReceived($msg_in); }
  - +3 replies
  - torsten
    
    2011-11-30 12:58
    
    User since
    2010-08-16
    45 Artikel
    BenutzerIn
    
    gibt es in Tk nicht sowas wie ein fileevent? Ich glaube, mich dunkel zu erinnern, das vor 10 Jahren mal benutzt zu haben. Könnte sein, dass es unter Windows nicht ging.
    - +2 replies
    - campbell-bs
      
      2011-11-30 16:08
      
      User since
      2011-11-17
      23 Artikel
      BenutzerIn
      
      Yes, habe ich danach auch gefunden, fork() ist auch ein bisschen überdimensioniert. Mit fileevent klappt es wunderbar
      - topeg
        
        2011-12-01 11:32
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Wenn es jemanden interessiert. Ein kleines Modul, es erlaubt Befehle in einem extra Prozess zu starten. Zurück gegeben werden kann nur ein String. Ich hab es benutzt um mehre Sockets zu ordentliche handhaben zu können.
        
        more (27.8kb)
        
        Beispiel:
        
        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
        
        #!/usr/bin/perl use strict; use warnings; use fork_bufferd_read; my $count=0; my $fbr=fork_bufferd_read->new(sub{ my $buf=shift; $count++; select(undef,undef,undef,0.5); $$buf.="$count\t"; return 0 if($count>35); return 1; }); die ("NO FORK!\n") unless($fbr); for(0..10) { sleep 3; print "READ $_ :".$fbr->read()."\n"; unless($fbr->running()) { print "CHILD EXIT!\n"; last; } }
- pq
  
  2011-11-30 12:18
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Netzwerkprogrammierung und Netzwerke mit Perl
  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

View all threads created 2011-11-30 08:26.