#!/usr/bin/env perl
#
use strict;
use warnings;
sub usage() {
print STDERR "USAGE: $0 --seed <seed list file> --dump <dumped json file> --out <output json file>\n";
exit(0);
}
my $HELP;
my $DEBUG;
my @SEED_FILES;
my @DUMP_FILES;
my $OUT_FILE;
use Getopt::Long;
GetOptions(
"dump|d=s" => \@DUMP_FILES,
"seed|s=s" => \@SEED_FILES,
"out|o=s" => \$OUT_FILE,
"debug" => \$DEBUG,
"help" => \$HELP
) or usage();
usage() if $HELP;
usage() unless @SEED_FILE and @DUMP_FILES and $OUT_FILE;
my %seeds = ();
loadSeeds( \@SEED_FILES, \%seeds );
转载于:https://my.oschina.net/kuerant/blog/644993