Skip to content

Instantly share code, notes, and snippets.

@negima1976

negima1976/hssample.pl

Created November 27, 2012 01:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save negima1976/4151873 to your computer and use it in GitHub Desktop.
Save negima1976/4151873 to your computer and use it in GitHub Desktop.
Download ZIP
HandlerSocket sample code
Raw
hssample.pl
#!/usr/bin/perl
use strict;
use warnings;
use Net::HandlerSocket;
use Data::Dumper qw/Dumper/;
my $args = { host => 'localhost', port => 9998 };
my $hs = new Net::HandlerSocket($args);
$hs->open_index(1, 'isucon', 'comment', 'PRIMARY', 'id,article,name,body,created_at');
my $res = $hs->execute_find(1, '>=', ['1'], 100, 1);
print Dumper($res)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment