client socket 创建失败

609854

帮忙看下 错误的原因，为什么创建不成功

1. Error creating socket: Unknown error  at C:/Users/

复制代码

1. use IO::Socket;
   
2.   
   
3. 
   
4. my $sock        = new IO::Socket::INET(
   
5.   
   
6.         PeerAddr        => '127.0.0.1',
   
7.   
   
8.         PeerPort        => 1234,
   
9.   
   
10.         Proto        => 'tcp',
    
11.         
    
12.         ) or die "Error creating socket: $! ";
    
13.   
    
14. 
    
15. close($sock);

复制代码

### 下面是服务器端代码，依然出现创建不了的问题

1. $sock        = new IO::Socket::INET(
   
2.   
   
3.         LocalHost        => '127.0.0.1',
   
4.   
   
5.         LocalPort        => 1234,
   
6.   
   
7.         Listen        => 1,
   
8.   
   
9.         Reuse        => 1,
   
10.   
    
11.         Proto        => 'tcp') || die "Error creating socket: $! ";
    
12. 
    
13. $client        = $sock->accept();
    
14. 
    
15. close($sock);
    

复制代码

#### 换了端口号  可以用了~

兰花仙子

它都说了是Unknown error
就是它自己也不知道

laputa73

server正常吗？
telnet 127.0.0.1 1234试试

3P用户

本机1234端口上没有Socket侦听，连接被拒绝。你先运行一个服务器在1234端口上。

3P用户

use IO::Socket;
my $sock = new IO::Socket::INET(
  
        PeerAddr        => 'bbs.chinaunix.net',
  
        PeerPort        => 80,
  
        Proto        => 'tcp',
        
        ) or die "Error creating socket: $! ";
close($sock);

或者连到这里。

609854

回复 5# 3P用户


    这个是可以创建的