how to create a client/server socket connection (ask for user name and secretword)

[ryaneoghan]

hi,

I was just wondering if anyone could help, i am trying to create a client and server socket connection in perl, i want to ask for name and then do a check on the name and ask for a secret word if it does not match, i have this much done but dont know where to go from here and cant find anything to help on net, if you could help using the code i have done i would be grateful, thanks!

here is the 2 files

#!/usr/bin/perl -w
# server2way.pl - a server that reads from
# and writes to a client
use strict;                                     #declaring all variables
use IO::Socket;                                 #use Input/Output socket
use Sys::Hostname;                              #use any hostname that can be found
my $sock = new IO::Socket::INET(                #assigning sock with object IO socket 
                   LocalHost => 'localhost',    
                   LocalPort => 7890,           #local port number to be used to bind socket
                   Proto     => 'tcp',          #parameters to pass through
                   Listen    => SOMAXCONN,      #wait for request
                   Reuse     => 1);
$sock or die "no socket :$!";                   #if no socket is available abort and print following message
 
STDOUT->autoflush(1);                        
 
 
my($buf,$secretword, $guess, $name ); #declares variables
 
while (my $new_sock = $sock->accept()) {    # got a client connection, accept socket
 
 
 
  while (<$new_sock>) {     # respond to client request using
 
  $buf = $1;
 
  print $new_sock $buf, next;
 
  #hash table that contains the names and password
  my %words = qw(
 
  fred            camel       
  barney    llama
  betty            alpaca
  wilma            alpaca
 
);
 
 
  if ($buf eq "randal") #if buf is Randal, print the following
 
  {
      print($new_sock "Hello, Randal! How good of you to be here!\n");
  }
 
  else 
 
  {
      $secretword = "";                #declare variable secretword
      while($secretword eq ""){        #use secretword to enter while loop
 
        $secretword =$words{$buf}; 
        if ($secretword eq "") #if secretword does not match
 
        {
            print($new_sock "Incrorrect Name: Please enter Name\n");
            $buf = <$new_sock>;
        }
        else{
            print($new_sock "correct");
        }
    }
 
        print "What is the secret word? "; #Ask user what is the secret word?
        $guess = <STDIN>;                  #Take in what the user writes
        chomp ($guess);                    #Cut off the new line character
 
        while ($guess ne $secretword)      #if guess is not equal to the secretword, print the following..
 
        {
            print "Wrong, try again. What is the secret word? "; #print message
            $guess = <STDIN>;                                    #take in text from keyboard
            chomp ($guess);                                      #cut off new-line characters
        }
 }
    }
    close $new_sock;                                                         #close the socket
}
 

================================================== ===========
================================================== ===========

#!/usr/bin/perl -w
# client2way.pl - a client that writes to
# and reads from a server
 
use strict; #declaring all variables
 
use IO::Socket;  #use Input/Output socket
 
my $host = shift || 'localhost';          #using the loopback address for the host
my $port = shift || 7890;                 # port number to bind the socket to
my $sock = new IO::Socket::INET(          #assigning sock with oject IO socket 
                  PeerAddr => $host,      #parameters to pass through
                  PeerPort => $port,      #parameters to pass through
                  Proto    => 'tcp');     #parameters to pass through
 
my ($name);
 
$sock or die "no socket :$!";             #if no socket is available abort and print following message
do{
    print "Enter your name please\n"; #print message
    my $name = <STDIN>;               #take in text from keyboard
    chomp ($name);                    #cut off new-line characters
 
 
    print $sock $name;     # send message to server
                           # print server response to STDOUT
 
 
}while (scalar <$sock> ne "correct" );
 
close $sock;