Help using Sockets in perl 2

[pdawlall]

Hi guys, can anyone help me. Im actually writing a script to distribute processing amoung 4 workstations.
The problem is that i have been having a problem sending and receiving data between sockets. For the time being im just trying it out on one workstation.
My server code is as follows:

 #!/usr/bin/perl -w
 use IO::Socket;
 use Net::hostent;           
foreach $argnum (0 .. $#ARGV) {
    if ($ARGV[$argnum] eq "-s&quot {
    $startframe = $ARGV[$argnum + 1];
   }
     if ($ARGV[$argnum] eq "-e&quot {
     $endframe = $ARGV[$argnum + 1];  }

      if ($ARGV[$argnum] eq "-proj&quot {
      $projdir = $ARG[$argnum + 1] ; }

    if ($ARGV[$argnum] eq "-rd&quot {
    $renderdir = $ARG[$argnum + 1];
   }
   if ($ARGV[$argnum] = $#ARGV - 1){
   $filename = $ARG[$argnum];
  }

}

 $PORT = 7700;                  # pick something not in use


 $server = IO::Socket::INET->new( Proto     => 'tcp',
                                  LocalPort => $PORT,
                                  Listen    => SOMAXCONN,
                                  Reuse     => 1,
                                  Type      => SOCK_STREAM,
                                  Family    => AF_UNIX );
   die "can't setup server" unless $server;
 print "[Server $0 accepting clients]\n";


 while ($client = $server->accept()) {
   $client->autoflush(1);
   print $client "Welcome to $0; Are you ready to Render \n";
   $hostinfo = gethostbyaddr($client->peeraddr);
   printf "\n[Connect from %s]\n", $hostinfo->name || $client->peerhost;

  # $server->send($client, $startframe,18)
    or die "Can't send: $!\n";
# THIS IS WHERE THE PROBLEM IS

      printf "Sending Message $startframe";
      # write ($client,$startframe,50);
      # write ($client,$endframe,50);
    close $client;
    }

# My client code is as follows
  #!/usr/bin/perl -w
    use IO::Socket;
    $remote = IO::Socket::INET->new(
                        Proto    => "tcp",
                        PeerAddr => "localhost",
                        PeerPort => "7700",
                    )
                  or die "cannot connect to port at localhost";

      $remote->autoflush(1);

    while ( <$remote> ) {
     read ($remote,$buf,18);
       printf $remote &quot;$buf \n&quot;;
   #  print

       }

    # print &quot;This is the startframe &quot;,$startframe;

     kill(&quot;TERM&quot;,$remote);

 

[GrSw]

Not enough time to analyze your code, but:

Try to look here:

http://www.usenix.org/publications/perl/perl14.html

http://www.usenix.org/publications/perl/perl15.html

http://www.usenix.org/publications/perl/perl16.html

And there is another example, with the use the Socket module:

#--------------------- Server: -----------------------#
#!perl -w
use strict;

use Socket;

my $this_host = 'localhost';
my $port = '9999';

if ($#ARGV > 0) {
   $this_host = $ARGV[0];
   $port   = $ARGV[1];
}

my $server_addr = (gethostbyname($this_host))[4];
my $server_struct = pack("S n a4 x8", AF_INET, $port, $server_addr);
my $proto = (getprotobyname('tcp'))[2];
socket(SOCK, PF_INET, SOCK_STREAM, $proto)||  die "Failed to initialize socket: $!\n";

setsockopt(SOCK, SOL_SOCKET, SO_REUSEADDR,1) || die "setsockopt() failed: $!\n";
bind(SOCK, $server_struct) || die "bind() failed: $!\n";
listen(SOCK, SOMAXCONN) || die "listen() failed: $!\n";

print "Server $this_host is listening on $port $#ARGV ...\n";

for (;;) {
  my $remote_host = accept(NEWSOCK, SOCK);
  die "accept() error: $!\n" unless ($remote_host);

  my $finish = 0;
  while (<NEWSOCK>) {
    if ($_ eq &quot;stop!\n&quot;) {
      $finish = 1;
      last;
    }
    print;
  }

  close(NEWSOCK);
  last if $finish;
}
#--------------------- Server. -----------------------#
#--------------------- Client: -----------------------#
#!perl -w
use strict;

use Socket;

my $server = 'localhost';
my $port   = '9999';

if ($#ARGV > 0) {
   $server = $ARGV[0];
   $port   = $ARGV[1];
}


my $server_addr =(gethostbyname($server))[4];
my $server_struct = pack(&quot;S n a4 x8&quot;, AF_INET, $port, $server_addr);
my $proto = (getprotobyname('tcp'))[2];
socket(MYSOCK, PF_INET, SOCK_STREAM, $proto)|| die &quot;Failed to initialize socket: $!\n&quot;;
connect(MYSOCK, $server_struct) || die &quot;Failed to connect() to server: $!\n&quot;;

print &quot;Connected to $server $port\n&quot;;

select(MYSOCK);
$| = 1;
select(STDOUT);

my $Input;

for (;;) {
 print &quot;>>&quot;;
 last unless defined ($Input = <STDIN>);
 last if $Input eq &quot;quit\n&quot;;

 print MYSOCK $Input;
 last if $Input eq &quot;stop!\n&quot;;
}
close(MYSOCK);
#--------------------- Client. -----------------------#

Hope this helps (somehow)
Grzegorz

 

[fishiface]

I used to do a lot of this sort of coding but now I almost exclusively use PlRPC or XMLRPC; two packages which make coding client-server apps in perl absolute child's play. Ask yourself whether you really need access at the socket level. &quot;As soon as we started programming, we found to our surprise that it wasn't as
easy to get programs right as we had thought. Debugging had to be discovered.
I can remember the exact instant when I realized that a large part of my life
from then on was going to be spent in finding mistakes in my own programs.&quot;
--Maurice Wilk