script/create_example.pl

#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use v5.16;

my $dir = $FindBin::Bin;

foreach my $file (qw/00001
		     00002
		     00003
		     00004
		     00005
		     00006
		     02035-substring
		     02439
		     05663-unbalanced
		     07452-deep/) {
    my $call = 'perl ' . $dir . '/prepare_index.pl -i ' . $dir . '/../examples/WPD/AAA/' . $file . ' -o ' . $dir . '/../' . $file . '.json';
    print 'Create ' . $file . ".json\n";
    system($call);

    print 'Create ' . $file . ".json.gz\n";
    $call .= '.gz -z';
    system($call);
};