Opened by tim at 2009-09-16 14:01
2009-09-16T13:28:10 pqIO::Select ist doch im verlinkten wiki-beispiel drin. das ermöglicht nichtblockierendes lesen.
mir geht es ja eig gar nicht so ums lesen.
so sieht der entsprechene programmauschnitt aus:
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
my $sock = IO::Socket::INET->new("loclahost:1111");
while() {
my $server = <$sock>;
chomp($sock);
if($sock =~ 'm(.*?)) {
my $msg = $2;
print "$msg\n";
}
}
### So empfage ich nachrichten vom server und sie werden mir angezeigt
### doch das senden verstehe ich noch nicht.
### mit senden:
my $sock = IO::Socket::INET->new("loclahost:1111");
while() {
my $server = <$sock>;
chomp($sock);
if($sock =~ 'm(.*?)) {
my $msg = $2;
print "$msg\n";
}
my $text = <STDIN>;
if($text =~ 'say (.*)') {
my $msg_send = $1;
print $sock "m($msg_send)\n";
}
}soweit ich das jetzt verstehe prüft er beim aufruf ob eine nachricht vom server kommt und wartet dann auf meine eingabe. wenn ich diese gemacht hab prüft er wieder ob eine nachricht da ist usw...
meine frage jetzt wie bekomme ich es in echtzeit hin das ich nachrichten empfangen und senden kann?
mfg tim