Lines Matching refs:sock
14 my $sock;
17 $sock = new IO::Socket::INET (
23 $sock = new IO::Socket::UNIX (
31 die "Could not create socket: $!\n" unless $sock;
35 netstringWrite($sock, $request);
36 $sock->flush();
37 my $response = netstringRead($sock);
42 $sock->close();
45 my $sock = shift;
48 print $sock length($data).':'.$data.',';
52 my $sock = shift;
55 my $dataLength = <$sock>;
59 if ($sock->read($data, $dataLength) == $dataLength) {
60 ($sock->getc() eq ',') or die "data misses closing ,";