Updating and deleting data using HandlerSocket and PERL

In addition to reading and inserting data, updating and deleting data round out the abilities of HandlerSocket.

Getting ready

Complete the Inserting data using HandlerSocket and PERL recipe before starting this recipe.

How to do it...

1. Create a file named hs_update_test.pl with the following content (this script is also available on the book's website):

   #!/usr/bin/perl
   use strict;
   use warnings;
   
   use Net::HandlerSocket;
   my $update_args = { host => 'localhost', port => 9999 };
   my $hsu = new Net::HandlerSocket($update_args);
   
   my $resu = $hsu->open_index(2, 'test', 'hs_test', 'PRIMARY', 'givenname');
     die $hsu->get_error() if $resu != 0;
   
   $resu = $hsu->execute_single(2, '=', [ '3' ],1,0, 'U', [ 'Jon' ]);
     die $hsu->get_error() if $resu->[0] != 0;
   printf("Number of Updated Rows:\t%s\n",$resu->[1]);
   
   $hsu->close();
   

2. Create a file called hs_delete_test.pl with the following contents (this script is also available on...