CPAN::Groonga

#!perl

use strict;
use warnings;

use Data::HandyGen::mysql;
use DBI;
use JSON qw(decode_json);
use YAML;
use Getopt::Long;

my %ids = ();
my $req;

main();
exit(0);

=head1 NAME

hd_insert_bulk.pl -

= @_;

    open my $JSON, '<', $infile
        or die "Failed to open infile : $infile : $!";
    my $json = do { local $/; <$JSON> };
    close $JSON;

    $req = decode_json($json);

    for my $tab

(--password)    : password

Options reading config from file:
    -i(--in,--infile) : input file (JSON)

Options simply inserting records to a table:
    -t(--table)       : table
    -n(--number)