请问一下创建AF_UNIX类型的socket，然后用bind绑定的时候怎么绑定到本地文件？

scutdk

我在《perl实例精解》第四版中看到说，socket有有几种类型，比如AF_UNIX, AF_INET, 还有个我忘了

如果创建的是AF_UNIX类型的socket，可以用bind绑定到文件，比如
bind(SERVERSOCKET, "./mysocket");
但是我运行脚本的时候总是提示bind参数无效 Invalid argument。我查看perldoc -f bind函数原型也说
bind的第二个参数应该是pack之后的地址。

请问bind对于本地进程通信可以绑定到本地文件吗？如果可以的话，怎么绑定呢？
以下是我用的脚本，提示invalid argument.

1. #!/usr/bin/perl
   
2. 
   
3. print "Server started.\n";
   
4. use constant {
   
5.     AF_UNIX => 1,
   
6.     SOCKET_STREAM => 1,
   
7. };
   
8. 
   
9. print AF_UNIX, "\n";
   
10. 
    
11. $protocol = 0; # aka ip
    
12. 
    
13. socket(SERVERSOCKET, AF_UNIX, SOCKET_STREAM, $protocol) ||
    
14.     die("can't create socket $!\n");
    
15. print "socket OK.\n";
    
16. 
    
17. $name = "./mysocket";
    
18. unlink $name if -e $name;
    
19. 
    
20. bind(SERVERSOCKET, $name) || die("can't bind socket to $name $!\n");
    
21. print "bind OK.\n";
    
22. 
    
23. listen(SERVERSOCKET, 5) || die("error Listen $!\n");
    
24. print "listen OK.\n";
    
25. 
    
26. while (1) {
    
27.     accept(NEWSOCKET, SERVERSOCKET) or die("error Accept $!\n");
    
28.     print "Accept OK. \n";
    
29. 
    
30.     $pid = fork || die("Fork error: $!\n");
    
31.     if ($pid == 0) {
    
32.         print NEWSOCKET "Greetings from your server";
    
33. 
    
34.         close(NEWSOCKET);
    
35.         exit(0);
    
36.     }
    
37.     else {
    
38.         close(NEWSOCKET);
    
39.     }
    
40. }

复制代码

scutdk

好吧，其实这个实际我也不怎么会用到，只是因为比较好奇而已。

py

回复 1# scutdk

用IO::Socket吧

或是就直接用个named pipe

joneui

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Socket;
   
6. 
   
7. print "Server Starte.\n";
   
8. my $AF_UNIX = 1;        my $SOCK_STREAM = 1;       
   
9. my $PROTOCOL = 0;socket(SERVERSOCKET, $AF_UNIX, $SOCK_STREAM, $PROTOCOL) ||
   
10.         die " Socket $!\n";
    
11. print "Socket OK\n";
    
12. 
    
13. my $name = "./greetings";
    
14. unlink "./greetings" || warn "$name: $!\n";
    
15.        
    
16. bind(SERVERSOCKET, sockaddr_un($name)) || die "Bind $!\n";
    
17. print "bind OK\n";
    
18. 
    
19. listen(SERVERSOCKET, 5) || die "Listen $!\n";
    
20. print "listen OK\n";
    
21. 
    
22. while(1){
    
23.         accept(NEWSOCKET, SERVERSOCKET) || die "Accept $!\n";
    
24. 
    
25.         my $pid = fork || die "Fork: $!\n";
    
26.         if ($pid == 0){
    
27.                 print (NEWSOCKET "Greetings from your server!!\n");
    
28.                 close(NEWSOCKET);
    
29.                 exit(0);
    
30.         }
    
31.         else{
    
32.                 close(NEWSOCKET);
    
33.         }
    
34. }
    

复制代码

bind语句改成bind(SERVERSOCKET, sockaddr_un($name))

不过实际运行时，我发现客户端无法和服务器端通讯，问题还在查找中。。。

nalinaly

scutdk 发表于 2011-12-04 21:28
我在《perl实例精解》第四版中看到说，socket有有几种类型，比如AF_UNIX, AF_INET, 还有个我忘了

如果创 ...

应该是用了相对路径的缘故，unix_socket只能用绝对路径。

xiaoqiangemail

服务器端
bind(SERVERSOCKET, sockaddr_un($name)) || die "Bind $!\n";    改成 bind(SERVERSOCKET, pack_sockaddr_un($name)) || die "Bind $!\n";
my $pid = fork || die "Fork: $!\n";  改为my $pid = fork ;
client端
$result = connect(CLIENTSOCKET, "$name" );改为 $result = connect(CLIENTSOCKET, sockaddr_un($name) );  

以上改动，就可以测试成功了。

xie3ks

按照你的提示修改后，
发现服务器端报错
Fork: Illegal seek

求解

回复 6# xiaoqiangemail