Whamcloud - gitweb
git://git.whamcloud.com
/
fs
/
lustre-release.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
b=13798
[fs/lustre-release.git]
/
lustre
/
tests
/
socketclient
1
#!/usr/bin/perl -w
2
use Socket;
3
use strict;
4
my ($rendezvous, $line);
5
6
$rendezvous = shift || <@ARGV>;
7
socket(SOCK, AF_UNIX, SOCK_STREAM, 0) || die "socket: $!";
8
connect(SOCK, sockaddr_un($rendezvous)) || die "connect: $!";
9
while (defined($line = <SOCK>)) {
10
print $line;
11
}
12
exit;