perl Getopt::Long

最新推荐文章于 2023-07-29 00:28:40 发布

weixin_34293246

最新推荐文章于 2023-07-29 00:28:40 发布

阅读量141

点赞数

文章标签： json python

原文链接：https://my.oschina.net/kuerant/blog/644993

版权

2019独角兽企业重金招聘Python工程师标准>>>

#!/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