与客户端通信时的问题。。
我先建立一个server.比如这样:
#!/usr/bin/perl
use IO::Socket;
use strict;
my $sock=new IO::Socket::INET (LocalHost => '127.0.0.1',
LocalPort => 1234,
Proto => 'tcp',
Listen => 5,
Reuse =>1
);
die "Cannot create socket because: $!\n" unless $sock;
while(my $client=$sock->accept()){
for (my $i=0;$i<10 ;++$i) {
print $client $i,"\n";
}
}
close($sock);
然后我telnet 127.0.0.1 1234
显示是这样的:
0
1
2
3
4
5
6
7
8
9
可是我希望这样:
0
1
2
3
……
应该怎么办?