TCP-Client unter Tk - #37617 (Netzwerkprogrammierung und Netzwerke mit Perl)

Froschpopo

2005-04-02 08:05

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Ich hab mal nen einfachen Client gebaut (Kochbuch). Das Beispiel zeigt nur den Verbindungsaufbau, nicht das Tk-Script.

Code: (dl )

#!/usr/bin/perl

use strict;
use Socket;
socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
my $remote_host = '127.0.0.1';
my $internet_addr = inet_aton($remote_host)
    or die "Konnte $remote_host nicht in eine Internet-Adresse umwandeln\n";
my $paddr = sockaddr_in(3002, $internet_addr);
connect(TO_SERVER, $paddr)
    or die "Konnte keine Verbindung zu $remote_host herstellen.\n";
print TO_SERVER "hallo\n";
close(TO_SERVER);

Wie muss ich jetzt auf Antworten des Servers warten ohne das ganze Tk-Programm einzufrieren? Die Antwort lautet Multi-Asking so mit Threads und so...
weiss jemand wie man das forken kann?

Wir hatten ja gestern schonmal darüber gesprochen, jedoch fällt mir hier beim besten Willen keine Lösung mit nem Timer ein. Da muss ich wohl jetzt mit Threads arbeiten\n\n