#!/usr/bin/env perl

use strict;
use warnings;
use Getopt::Long;
use JSONL::Subset qw(subset_jsonl);

my ($infile, $outfile, $percent, $mode, $seed);

GetOptions(
    "in=s"     => \$infile,
    "out=s"    => \$outfile,
    "percent=i"=> \$percent,
    "mode=s"   => \$mode,
    "seed=i"   => \$seed,
    "streaming" => \$streaming,
) or die "Usage: $0 --in FILE --out FILE --percent INT [--mode random|start|end] [--seed INT]\n";

subset_jsonl(
    infile  => $infile,
    outfile => $outfile,
    percent => $percent,
    mode    => $mode,
    seed    => $seed,
    streaming => $streaming,
);
