6 # PODNAME: wtscript2json
7 # ABSTRACT: convert read configuration into JSON
11 use File
::Slurp
qw(write_file);
14 use List
::MoreUtils
qw(zip);
15 use Params
::Util
qw(_ARRAY);
18 use WWW
::Mechanize
::Script
::Util
qw(:ALL);
19 use WWW
::Mechanize
::Script
;
21 our $VERSION = '0.001_003';
25 "output-pattern" => []
28 "input-files=s@" => $opts{"input-files"},
29 "output-files=s@" => $opts{"output-files"},
30 "output-pattern=s{2}" => $opts{"output-pattern"},
34 GetOptions
( \
%opts, @options ) or pod2usage
(2);
37 @
{ $opts{"input-files"} } or delete $opts{"input-files"};
38 @
{ $opts{"output-files"} } or delete $opts{"output-files"};
39 @
{ $opts{"output-pattern"} } or delete $opts{"output-pattern"};
42 defined( $opts{help
} )
50 defined( $opts{usage
} ) and $opts{usage
} and pod2usage
(1);
51 opt_required_all
( \
%opts, qw(input-files) );
52 opt_exclusive
( \
%opts, qw(output-files output-pattern) );
53 opt_required_one
( \
%opts, qw(output-files output-pattern) );
54 _ARRAY
( $opts{"input-files"} )
55 and _ARRAY
( $opts{"output-files"} )
56 and scalar( @
{ $opts{"input-files"} } ) != scalar( @
{ $opts{"output-files"} } )
59 -message
=> "Count of --input-files and --output-files doesn't match",
65 _ARRAY
( $opts{"output-files"} )
66 ? zip
( @
{ $opts{"input-files"} }, @
{ $opts{"output-files"} } )
68 my %cfg = load_config
();
70 my $coder = JSON
->new();
71 _ARRAY
( $cfg{wtscript_extensions
} )
72 and Config
::Any
::WTScript
->extensions( @
{ $cfg{wtscript_extensions
} } );
73 foreach my $filename ( @
{ $opts{"input-files"} } )
75 my @script_files = find_scripts
( \
%cfg, $filename );
76 my $scripts = Config
::Any
->load_files(
78 files
=> [@script_files],
83 if ( $opts{"output-files"} )
85 @script_files = keys %{$scripts};
86 scalar(@script_files) > 1
89 -message
=> "filename $filename is ambigious: " . join( ", ", @script_files ),
93 scalar(@script_files) < 1
94 and next; # file not found or not parsable ...
95 # merge into default and previous loaded config ...
96 my $json = $coder->pretty->encode( $scripts->{ $script_files[0] } );
97 write_file
( $in2out{$filename}, $json );
101 while ( my ( $script_file, $script ) = each(%$scripts) )
103 my $json = $coder->pretty->encode($script);
104 ( my $target = $script_file ) =~
105 s/$opts{"output-pattern"}->[0]/$opts{"output-pattern"}->[1]/;
106 write_file
( $target, $json );