@@ -7,12 +7,51 @@ use strict; use warnings; use Config::Any; use Data::Dump qw( pp ); +use Getopt::Long; -my $cfg = Config::Any->load_files({ files => \@ARGV, use_ext => 1 }); +my $opt_json; +GetOptions('json' => \$opt_json) || usage(); + +if ($opt_json) { + eval { require JSON }; + fatal("option --json requires the JSON module from CPAN") if $@; +} + +usage('Missing required configuration file to parse') unless @ARGV; + +my $cfg = Config::Any->load_files({files => \@ARGV, use_ext => 1}); for my $c (@$cfg) { while (my ($filename, $config) = each %$c) { - print "Got configuration from file '$filename':\n", pp($config), "\n"; + print ">>> Got configuration from file '$filename':\n"; + + if ($opt_json) { print JSON::to_json($config) } + else { print pp($config) } + + print "\n"; } } + +############# + +sub fatal { + my $mesg = join('', @_); + + print "FATAL: $mesg\n" if $mesg; + exit(1); +} + +sub usage { + print <<" EOU"; + +Usage: x-perl-check-config [--json] config_file* + +Parses 1 or more configuration files (JSON, .ini, YAML supported) +and dumps the internal perl structure or as JSON if the '--json' +option is used. + + EOU + + fatal(@_); +} bin/x-perl-check-config fdafc036cb1a7e5c16bcd3e4d83f41eff7c7a420 Pedro Melo melo@simplicidade.org http://github.com/melo/scripts/commit/8b49ecdd5f25cd84836ea2aa9fb9ed53dce857b7 8b49ecdd5f25cd84836ea2aa9fb9ed53dce857b7 2009-10-12T09:39:50-07:00 2009-10-12T09:39:50-07:00 Add proper usage and the option --json to x-perl-check-config If --json is given, outputs all found config files as JSON. Signed-off-by: Pedro Melo <melo@simplicidade.org> d535f5a12a8d4247cb47720fc75355a73306f472 Pedro Melo melo@simplicidade.org