Lines Matching +full:data +full:- +full:shift
1 #!/usr/bin/perl -w
4 # $Id: socketmapServer.pl,v 1.1 2003-05-21 15:36:33 ca Exp $
10 my $connection = shift @ARGV;
13 if ($connection =~ /tcp:(.+):([0-9]*)/) {
32 while(my $client = $sock->accept()) {
35 $client->close();
38 $sock->close();
40 $client->close();
45 $sock->close();
48 my $client = shift;
49 $client->autoflush(1);
69 my $mapName = shift;
70 my $key = shift;
76 my $sock = shift;
77 my $data = shift;
79 print $sock length($data).':'.$data.',';
83 my $sock = shift;
89 my $data;
90 if ($sock->read($data, $dataLength) == $dataLength) {
91 ($sock->getc() eq ',') or die "data misses closing ,";
93 die "received only ".length($data)." of $dataLength bytes";
97 return $data;