Lines Matching refs:sock
11 my $sock;
14 $sock = new IO::Socket::INET (
23 $sock = new IO::Socket::UNIX (
32 while(my $client = $sock->accept()) {
38 $sock->close();
45 $sock->close();
76 my $sock = shift;
79 print $sock length($data).':'.$data.',';
83 my $sock = shift;
86 my $dataLength = <$sock>;
90 if ($sock->read($data, $dataLength) == $dataLength) {
91 ($sock->getc() eq ',') or die "data misses closing ,";