建立一次socket只能对应执行一次发送动作吗？

洲洲young

为什么socket建立之后不能进行循环发送呢，但是把socket的建立放入循环中就可以多次发送了，

难道建立一次socket只能执行一次发送动作？？？，请有经验的朋友说说！！

#!/usr/bin/perl

#client端

use IO::Socket;
my $port=Peerport;
my $msg="hello";
my $n=0;

my $socket=IO::Socket::INET->new(
              PeerAddr=>'127.0.0.1',
              PeerPort=>3000,
              Proto=>"tcp",
              listen=>5,
              Reuse=>2,
              Type=>SOCK_STREAM)

or die "Couldn't connect to ...\n";

for my $count(0..5) {

print $socket "$msg:!\n";

my $answer=<$socket>;

print $answer,"\n";

print $count,"\n";

sleep(1);

}
close($socket);