Opened by Gast at 2007-06-13 17:21
Hallo ich hab ein kleines Problem mit den Code:
Browser sagt:
bin verbunden
bin getrennt
aber er sollte unendlich lange laufen und auf nachrichten warten!
wie kann ich das machen?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
$|=1;
print "Content-Type: text/html\r\n\r\n";
use strict;use IO::Socket;my $Server = new IO::Socket::INET (
PeerAddr => '192.168.88.100',
PeerPort => 2004,
Proto => 'tcp')
|| die "kann nicht zum Server verbinden!";
print "bin verbunden <br>";
while(<$Server>) {
print $_;
print "in schleife ich drinne sein";
}print "bin getrennt";
$Server->close();
Browser sagt:
bin verbunden
bin getrennt
aber er sollte unendlich lange laufen und auf nachrichten warten!
wie kann ich das machen?