請問一下創(chuàng)建AF_UNIX類型的socket，然后用bind綁定的時候怎么綁定到本地文件？

scutdk

我在《perl實例精解》第四版中看到說，socket有有幾種類型，比如AF_UNIX, AF_INET, 還有個我忘了

如果創(chuàng)建的是AF_UNIX類型的socket，可以用bind綁定到文件，比如
bind(SERVERSOCKET, "./mysocket");
但是我運行腳本的時候總是提示bind參數(shù)無效 Invalid argument。我查看perldoc -f bind函數(shù)原型也說
bind的第二個參數(shù)應(yīng)該是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. }

復(fù)制代碼

scutdk

好吧，其實這個實際我也不怎么會用到，只是因為比較好奇而已。

py

回復(fù) 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. }
    

復(fù)制代碼

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

不過實際運行時，我發(fā)現(xiàn)客戶端無法和服務(wù)器端通訊，問題還在查找中。。。

nalinaly

scutdk 發(fā)表于 2011-12-04 21:28
我在《perl實例精解》第四版中看到說，socket有有幾種類型，比如AF_UNIX, AF_INET, 還有個我忘了

如果創(chuàng) ...

應(yīng)該是用了相對路徑的緣故，unix_socket只能用絕對路徑。

xiaoqiangemail

服務(wù)器端
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

按照你的提示修改后，
發(fā)現(xiàn)服務(wù)器端報錯
Fork: Illegal seek

求解

回復(fù) 6# xiaoqiangemail