Asynchrones Socket lesen (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]4288[/thread]

Asynchrones Socket lesen

betterworld

2004-07-13 16:16

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Vielleicht hilft Dir select() weiter.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

weismat

2004-07-13 15:49

User since
2003-08-18
142 Artikel
BenutzerIn
[default_avatar]

Ich habe ein Programm, daß asynchron von einem Socket lesen muss.
Ich schicke zunächst eine Nachricht und bekomme dann eine Antwort und anschließend eine beliebige Anzahl Nachrichten.
Meine Verarbeitung mit recv funktioniert auch, nur sorgt daß für eine sehr hohe Auslastung auf der Maschine.
Wie würde ich das Programmieren, damit ich mit einem Timeout lese und dann vielleicht nur alle 5-10 Sekunden prüfe, ob ich eine Nachricht bekommen habe.
Meine Receive Funktion sieht wie folgt aus:

Code: (dl )

sub receive {
#no arguments- receives a new message 
  my($message, $j, $i, $length);
  $message ="";
  my $self=$_[0];
  my $remote=$self->{remote};
  $remote->recv($length, 10);
  while ($length){ 
    $remote->recv(my $message_block, $length > 4096 ? 4096 : $length);
    $message .= $message_block;
    $length -= length $message_block;
  }
  
  return $message;
}

Vielen Dank!

View all threads created 2004-07-13 16:16.