CPAN::Groonga

#!/usr/bin/perl
##
## JSON_minify.pm
## Copyright ©2018 Rémi Cohen-Scali
##
##
## Permission is hereby granted, free of charge, to any person obtaining a copy
## of this software and associated docu

VERSION = '1.1.1';

package JSON_minify;

use strict;
use warnings;

sub new {
    my $class = shift;
    return bless {}, $class;
}

##
## minify_string
##
## Minify a json content available in the 2

lf param: the object instance
    my $self = shift;
    # input_string param: a string containing json
    my $input_string = shift;
    # strip_space param: a boolean that specify if caller 
    # wa

#!/usr/bin/perl
##
## json_minify.pl
## Copyright ©2018 Rémi Cohen-Scali
##
##
## Permission is hereby granted, free of charge, to any person obtaining a copy
## of this software and associated docu

o process a json file/stream
##
## usage: json_minify.pl -i <afile>.json -o <anoutfile>.json
##        cat <afile.json> | json_minify.pl > <anoutfile>.json
##        cat <afile.json> | json_minify.pl 

-o <anoutfile>.json
##        json_minify.pl -i <afile>.json > <anoutfile>.json
##
## -s|--strip for stripping spaces
##


our $VERSION = '1.0';

use strict;
use warnings;
use Getopt::Long;
use Pod::U