- 论坛徽章:
- 0
|
本帖最后由 qxt912 于 2014-09-30 18:08 编辑
在仙子的系统监控程序中,曾经引用了$sock->shutdown(1) ,并说如果没有这个client会阻塞,我实验了一下,
客户端- #!/usr/bin/perl
- use strict;
- use IO::Socket;
- my $sock = IO::Socket::INET->new(PeerAddr=>"172.10.0.13",
- PeerPort=>8888,
- Proto=>'tcp'
- ) or die("cannot difined sock,$!");
- print $sock "nihao\n";
- close $sock;
复制代码 服务器端:
- #!/usr/bin/perl
- use strict;
- use IO::Socket;
- my $listen_socket = IO::Socket::INET->new(
- LocalAddr => "172.10.0.13",
- LocalPort => 8888,
- Listen => 5,
- Proto => 'tcp',
- Reuse => 1
- );
- die "cant create socket$@\n" unless defined $listen_socket;
- while(1){
- next unless my $sock = $listen_socket->accept;
- my $m = <$sock>;
- print $m;
- close $sock;
- }
复制代码 这里没有使用$sock->shutdown(1),而是使用了\n,也可以顺利实现传输,那么$sock->shutdown(1)与\n的区别是什么?
|
|