会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
use IO::Socket; |
unlink "/tmp/mysock"; |
$server = IO::Socket::UNIX->new ( Local => "/tmp/mysock", |
Type => SOCK_DGRAM, |
Listen => 5 ) |
or die $@; |
$client = IO::Socket::UNIX->new ( Peer => "/tmp/mysock", |
Type => SOCK_DGRAM, |
Timeout => 10 ) |
or die $@; |
#----------------------------- |
use Socket; |
socket ( SERVER, PF_UNIX, SOCK_STREAM, 0 ); |
unlink "/tmp/mysock"; |
bind ( SERVER, sockaddr_un ( "/tmp/mysock" ) ) |
or die "Can't create server: $!"; |
socket ( CLIENT, PF_UNIX, SOCK_STREAM, 0 ); |
connect ( CLIENT, sockaddr_un ( "/tmp/mysock" ) ) |
or die "Can't connect to /tmp/mysock: $!"; |
#----------------------------- |
