my $NAME = '/tmp/catsock';
my $uaddr = sockaddr_un($NAME);
my $proto = getprotobyname('tcp');
socket(Server,PF_UNIX,SOCK_STREAM,0) || die "socket: $!";
unlink($NAME);
bind (Server, $uaddr) || die "bind: $!";
listen(Server,SOMAXCONN) || die "listen: $!";
unlink("/tmp/catsock");It never succeeds?
$server = IO::Socket::UNIX->new(LocalAddr => "/tmp/catsock",
Type => SOCK_STREAM,or die "Can't make the server socket: $@\n";
Listen => 5)
In reply to Perl UNIX sockets dilemma by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |