# simple-perl-client.pl

# EDIT: this has been edited an hour after posting to set N=100_000
# time reported is correct though
# mostly from here:
#   https://codereview.stackexchange.com/questions/106421/network-chat-in-perl
# and here:
#   https://gist.github.com/chankeypathak/1b1b9b3a27799eb5e277

use strict;
use warnings;

use IO::Socket::INET;
use Time::HiRes qw/gettimeofday/;

my $N = 100_000; # number of inserts
my $start_time = Time::HiRes::gettimeofday();

my $server          = shift or die "No server\n";
my $port            = shift or die "No port\n";
my $client_socket   = IO::Socket::INET->new(
        PeerPort    =>  $port,
        PeerAddr    =>  $server,
        Proto       =>  'tcp'
   ) or die "Can't create send socket: $!!\n";

print "Connected to $server:$port!\n";

my $child;

if($child = fork) {
  while( 1 ){
    my $received = <$client_socket>;
    exit unless defined $received;
    print $received;
  }
}

die "fork: $!\n" unless defined $child;

# set
print "$0 : doing $N sets ...\n";

for my $i (1..$N){
  $client_socket->send("x$i=$i\n");
}
print "$0 : done $N sets.\n";

print "$0 : doing $N gets ...\n";
# get
for my $i (1..$N){
  $client_socket->send("x$i=\n");
}
print "$0 : done $N gets.\n";

my $end_time = Time::HiRes::gettimeofday();

print "Closing connection ...\n";
$client_socket->send("quit\n\n");
close $client_socket;
sleep(1);
print "$0 : done $N sets/gets in ".($end_time-$start_time)." seconds.\n";