socketclient

来自「lustre 1.6.5 source code」· 代码 · 共 13 行

#!/usr/bin/perl -w
use Socket;
use strict;
my ($rendezvous, $line);

$rendezvous = shift || <@ARGV>;
socket(SOCK, AF_UNIX, SOCK_STREAM, 0)	|| die "socket: $!";
connect(SOCK, sockaddr_un($rendezvous))	|| die "connect: $!";
while (defined($line = <SOCK>)) {
	print $line;
}
exit;