无法设置sock为非阻塞模式,请帮忙

angleeye

这样

1. 
   
2.    my $sock;
   
3.    socket($sock,AF_INET,SOCK_STREAM,0) or die "can not open socket.n";
   
4.    my $sin;
   
5.    $sin=sockaddr_in($self->{port},inet_aton($self->{ip}));
   
6. #   setsockopt($sock,SOL_SOCKET,SO_RCVTIMEO,5);
   
7. #   setsockopt($sock,SOL_SOCKET,SO_SNDTIMEO,5);
   
8. print fileno($sock);
   
9.    fcntl($sock,F_SETFL, fcntl($sock, F_GETFL, 0) | O_NONBLOCK) or
   
10.         die "can not set socket opition.$!n";
    
11. print "connectingn";
    
12.    if(!connect($sock,$sin))
    
13.    {
    
14. .....
    
15. ...
    
16. }
    

复制代码

有什么错误.

兰花仙子

1. socket($sock,AF_INET,SOCK_STREAM,0)

复制代码

这里不对吧？