Gecko [ 8.222.176.185 ]

Name	Size	Permission
.mad-root	0 B	-rw-rw-rw-
SOAPsh.bat	3.35 KB	-rwxrwxrwx
SOAPsh.pl	2.75 KB	-rw-rw-rw-
adminer.php	465.43 KB	-rw-rw-rw-
bdf2gdfont.bat	5.26 KB	-rwxrwxrwx
bdf2gdfont.pl	4.75 KB	-rw-rw-rw-
chartex	5.67 KB	-rw-rw-rw-
chartex.bat	6.47 KB	-rwxrwxrwx
config_data	7.2 KB	-rw-rw-rw-
config_data.bat	7.73 KB	-rwxrwxrwx
corelist.bat	15.75 KB	-rwxrwxrwx
cpan	8.06 KB	-rw-rw-rw-
cpan-mirrors	4.18 KB	-rw-rw-rw-
cpan-mirrors.bat	5.1 KB	-rwxrwxrwx
cpan-outdated	8.85 KB	-rw-rw-rw-
cpan-outdated.bat	9.67 KB	-rwxrwxrwx
cpan.bat	9.16 KB	-rwxrwxrwx
cpan2dist	21.22 KB	-rw-rw-rw-
cpan2dist.bat	22.39 KB	-rwxrwxrwx
cpandb	6.6 KB	-rw-rw-rw-
cpandb.bat	7.37 KB	-rwxrwxrwx
cpanel_json_xs	9.75 KB	-rw-rw-rw-
cpanel_json_xs.bat	10.58 KB	-rwxrwxrwx
cpanfile-dump	3.45 KB	-rw-rw-rw-
cpanfile-dump.bat	4.08 KB	-rwxrwxrwx
cpanm	295.67 KB	-rw-rw-rw-
cpanm.bat	297.23 KB	-rwxrwxrwx
cpanp	3.22 KB	-rw-rw-rw-
cpanp-run-perl	459 B	-rw-rw-rw-
cpanp-run-perl.bat	990 B	-rwxrwxrwx
cpanp.bat	3.84 KB	-rwxrwxrwx
crc32	1.01 KB	-rw-rw-rw-
crc32.bat	1.57 KB	-rwxrwxrwx
dbicadmin	7 KB	-rw-rw-rw-
dbicadmin.bat	7.87 KB	-rwxrwxrwx
dbilogstrip	1.39 KB	-rw-rw-rw-
dbilogstrip.bat	1.89 KB	-rwxrwxrwx
dbiprof	6.31 KB	-rw-rw-rw-
dbiprof.bat	6.82 KB	-rwxrwxrwx
dbiproxy	5.44 KB	-rw-rw-rw-
dbiproxy.bat	5.95 KB	-rwxrwxrwx
enc2xs	40.68 KB	-rw-rw-rw-
enc2xs.bat	42.87 KB	-rwxrwxrwx
encguess	2.91 KB	-rw-rw-rw-
encguess.bat	3.8 KB	-rwxrwxrwx
exe_update.bat	4.71 KB	-rwxrwxrwx
exe_update.pl	4.05 KB	-rw-rw-rw-
exetype.bat	3.53 KB	-rwxrwxrwx
extract_vba	2.98 KB	-rw-rw-rw-
extract_vba.bat	3.62 KB	-rwxrwxrwx
factor.bat	3.77 KB	-rwxrwxrwx
factor.pl	3.16 KB	-rw-rw-rw-
findrule	3.24 KB	-rw-rw-rw-
findrule.bat	3.88 KB	-rwxrwxrwx
h2ph.bat	30.27 KB	-rwxrwxrwx
h2xs.bat	62.43 KB	-rwxrwxrwx
htmltree	1.28 KB	-rw-rw-rw-
htmltree.bat	1.81 KB	-rwxrwxrwx
hypnotoad	1.03 KB	-rw-rw-rw-
hypnotoad.bat	1.58 KB	-rwxrwxrwx
instmodsh	4.09 KB	-rw-rw-rw-
instmodsh.bat	5.03 KB	-rwxrwxrwx
json_pp	4.77 KB	-rw-rw-rw-
json_pp.bat	5.52 KB	-rwxrwxrwx
json_xs	6.84 KB	-rw-rw-rw-
json_xs.bat	7.6 KB	-rwxrwxrwx
kwalitee-metrics	2.34 KB	-rw-rw-rw-
kwalitee-metrics.bat	2.96 KB	-rwxrwxrwx
libgcc_s_seh-1.dll	74.5 KB	-rw-rw-rw-
libnetcfg.bat	16.88 KB	-rwxrwxrwx
libstdc++-6.dll	1.36 MB	-rw-rw-rw-
libwinpthread-1.dll	51 KB	-rw-rw-rw-
llw32helper.bat	4.8 KB	-rwxrwxrwx
llw32helper.pl	4.13 KB	-rw-rw-rw-
lwp-download	10.04 KB	-rw-rw-rw-
lwp-download.bat	10.88 KB	-rwxrwxrwx
lwp-dump	2.64 KB	-rw-rw-rw-
lwp-dump.bat	3.26 KB	-rwxrwxrwx
lwp-mirror	2.35 KB	-rw-rw-rw-
lwp-mirror.bat	2.96 KB	-rwxrwxrwx
lwp-request	15.81 KB	-rw-rw-rw-
lwp-request.bat	16.88 KB	-rwxrwxrwx
mech-dump	4.74 KB	-rw-rw-rw-
mech-dump.bat	5.44 KB	-rwxrwxrwx
minicpan	5.36 KB	-rw-rw-rw-
minicpan.bat	6.05 KB	-rwxrwxrwx
module-version	2.06 KB	-rw-rw-rw-
module-version.bat	2.65 KB	-rwxrwxrwx
mojo	408 B	-rw-rw-rw-
mojo.bat	953 B	-rwxrwxrwx
moose-outdated	427 B	-rw-rw-rw-
moose-outdated.bat	977 B	-rwxrwxrwx
morbo	2.15 KB	-rw-rw-rw-
morbo.bat	2.72 KB	-rwxrwxrwx
mymeta-cpanfile	2.7 KB	-rw-rw-rw-
mymeta-cpanfile.bat	3.32 KB	-rwxrwxrwx
nssm_32.exe	288 KB	-rwxrwxrwx
nssm_64.exe	323.5 KB	-rwxrwxrwx
package-stash-conflicts	463 B	-rw-rw-rw-
package-stash-conflicts.bat	1013 B	-rwxrwxrwx
parinstallppd	3.35 KB	-rw-rw-rw-
parinstallppd.bat	3.99 KB	-rwxrwxrwx
perl.exe	39 KB	-rwxrwxrwx
perl5.32.1.exe	39 KB	-rwxrwxrwx
perl532.dll	3.26 MB	-rw-rw-rw-
perlbug.bat	46.8 KB	-rwxrwxrwx
perldoc.bat	1016 B	-rwxrwxrwx
perlglob.bat	1.95 KB	-rwxrwxrwx
perlglob.exe	17 KB	-rwxrwxrwx
perlivp.bat	11.72 KB	-rwxrwxrwx
perlthanks.bat	46.8 KB	-rwxrwxrwx
perltidy	175.27 KB	-rw-rw-rw-
perltidy.bat	180.32 KB	-rwxrwxrwx
pgplet	10.37 KB	-rw-rw-rw-
pgplet.bat	11.22 KB	-rwxrwxrwx
piconv	8.07 KB	-rw-rw-rw-
piconv.bat	9.13 KB	-rwxrwxrwx
pkg-config	46.94 KB	-rw-rw-rw-
pkg-config.bat	49.2 KB	-rwxrwxrwx
pl2bat.bat	11.49 KB	-rwxrwxrwx
pl2bat.pl	10.4 KB	-rw-rw-rw-
pl2pm.bat	5.56 KB	-rwxrwxrwx
pler	540 B	-rw-rw-rw-
pler.bat	1.07 KB	-rwxrwxrwx
pm-uninstall	820 B	-rw-rw-rw-
pm-uninstall.bat	1.28 KB	-rwxrwxrwx
pod2html.bat	5.02 KB	-rwxrwxrwx
pod2latex	10.39 KB	-rw-rw-rw-
pod2latex.bat	10.92 KB	-rwxrwxrwx
pod2man.bat	15.42 KB	-rwxrwxrwx
pod2text.bat	11.29 KB	-rwxrwxrwx
pod2usage	4.16 KB	-rw-rw-rw-
pod2usage.bat	4.67 KB	-rwxrwxrwx
pod_cover	1.37 KB	-rw-rw-rw-
pod_cover.bat	1.94 KB	-rwxrwxrwx
podchecker	3.7 KB	-rw-rw-rw-
podchecker.bat	4.21 KB	-rwxrwxrwx
podselect	2.56 KB	-rw-rw-rw-
podselect.bat	3.07 KB	-rwxrwxrwx
ppd2par	4.64 KB	-rw-rw-rw-
ppd2par.bat	5.32 KB	-rwxrwxrwx
ppm.bat	35.53 KB	-rwxrwxrwx
ppm.pl	33.99 KB	-rw-rw-rw-
primes.bat	21.45 KB	-rwxrwxrwx
primes.pl	20.34 KB	-rw-rw-rw-
prove.bat	14.07 KB	-rwxrwxrwx
ptar	3.38 KB	-rw-rw-rw-
ptar.bat	4.28 KB	-rwxrwxrwx
ptardiff	2.48 KB	-rw-rw-rw-
ptardiff.bat	3.35 KB	-rwxrwxrwx
ptargrep	4.19 KB	-rw-rw-rw-
ptargrep.bat	5.14 KB	-rwxrwxrwx
pwnkit	10.99 KB	-rw-rw-rw-
runperl.bat	2.72 KB	-rwxrwxrwx
scan-perl-prereqs-nqlite	5.28 KB	-rw-rw-rw-
scan-perl-prereqs-nqlite.bat	6 KB	-rwxrwxrwx
search.bat	55.83 KB	-rwxrwxrwx
shasum.bat	10.48 KB	-rwxrwxrwx
splain.bat	20.43 KB	-rwxrwxrwx
streamzip	5.45 KB	-rw-rw-rw-
streamzip.bat	6.17 KB	-rwxrwxrwx
stubmaker.bat	4.01 KB	-rwxrwxrwx
stubmaker.pl	3.35 KB	-rw-rw-rw-
test-yaml	1017 B	-rw-rw-rw-
test-yaml.bat	1.56 KB	-rwxrwxrwx
tpage	8.85 KB	-rw-rw-rw-
tpage.bat	9.64 KB	-rwxrwxrwx
ttree	38.21 KB	-rw-rw-rw-
ttree.bat	39.9 KB	-rwxrwxrwx
use-devel-checklib	2.7 KB	-rw-rw-rw-
use-devel-checklib.bat	3.31 KB	-rwxrwxrwx
whirlpoolsum	4.93 KB	-rw-rw-rw-
whirlpoolsum.bat	5.67 KB	-rwxrwxrwx
wperl.exe	39 KB	-rwxrwxrwx
xml_grep	13.32 KB	-rw-rw-rw-
xml_grep.bat	14.3 KB	-rwxrwxrwx
xml_merge	3.89 KB	-rw-rw-rw-
xml_merge.bat	4.55 KB	-rwxrwxrwx
xml_pp	7.82 KB	-rw-rw-rw-
xml_pp.bat	8.61 KB	-rwxrwxrwx
xml_spellcheck	6.34 KB	-rw-rw-rw-
xml_spellcheck.bat	7.1 KB	-rwxrwxrwx
xml_split	21.13 KB	-rw-rw-rw-
xml_split.bat	22.27 KB	-rwxrwxrwx
xsubpp.bat	5.78 KB	-rwxrwxrwx
zipdetails	56.01 KB	-rw-rw-rw-
zipdetails.bat	58.95 KB	-rwxrwxrwx

Name

Size

Permission

Action

.mad-root

0 B

-rw-rw-rw-

SOAPsh.bat

3.35 KB

-rwxrwxrwx

SOAPsh.pl

2.75 KB

-rw-rw-rw-

adminer.php

465.43 KB

-rw-rw-rw-

bdf2gdfont.bat

5.26 KB

-rwxrwxrwx

bdf2gdfont.pl

4.75 KB

-rw-rw-rw-

chartex

5.67 KB

-rw-rw-rw-

chartex.bat

6.47 KB

-rwxrwxrwx

config_data

7.2 KB

-rw-rw-rw-

config_data.bat

7.73 KB

-rwxrwxrwx

corelist.bat

15.75 KB

-rwxrwxrwx

cpan

8.06 KB

-rw-rw-rw-

cpan-mirrors

4.18 KB

-rw-rw-rw-

cpan-mirrors.bat

5.1 KB

-rwxrwxrwx

cpan-outdated

8.85 KB

-rw-rw-rw-

cpan-outdated.bat

9.67 KB

-rwxrwxrwx

cpan.bat

9.16 KB

-rwxrwxrwx

cpan2dist

21.22 KB

-rw-rw-rw-

cpan2dist.bat

22.39 KB

-rwxrwxrwx

cpandb

6.6 KB

-rw-rw-rw-

cpandb.bat

7.37 KB

-rwxrwxrwx

cpanel_json_xs

9.75 KB

-rw-rw-rw-

cpanel_json_xs.bat

10.58 KB

-rwxrwxrwx

cpanfile-dump

3.45 KB

-rw-rw-rw-

cpanfile-dump.bat

4.08 KB

-rwxrwxrwx

cpanm

295.67 KB

-rw-rw-rw-

cpanm.bat

297.23 KB

-rwxrwxrwx

cpanp

3.22 KB

-rw-rw-rw-

cpanp-run-perl

459 B

-rw-rw-rw-

cpanp-run-perl.bat

990 B

-rwxrwxrwx

cpanp.bat

3.84 KB

-rwxrwxrwx

crc32

1.01 KB

-rw-rw-rw-

crc32.bat

1.57 KB

-rwxrwxrwx

dbicadmin

7 KB

-rw-rw-rw-

dbicadmin.bat

7.87 KB

-rwxrwxrwx

dbilogstrip

1.39 KB

-rw-rw-rw-

dbilogstrip.bat

1.89 KB

-rwxrwxrwx

dbiprof

6.31 KB

-rw-rw-rw-

dbiprof.bat

6.82 KB

-rwxrwxrwx

dbiproxy

5.44 KB

-rw-rw-rw-

dbiproxy.bat

5.95 KB

-rwxrwxrwx

enc2xs

40.68 KB

-rw-rw-rw-

enc2xs.bat

42.87 KB

-rwxrwxrwx

encguess

2.91 KB

-rw-rw-rw-

encguess.bat

3.8 KB

-rwxrwxrwx

exe_update.bat

4.71 KB

-rwxrwxrwx

exe_update.pl

4.05 KB

-rw-rw-rw-

exetype.bat

3.53 KB

-rwxrwxrwx

extract_vba

2.98 KB

-rw-rw-rw-

extract_vba.bat

3.62 KB

-rwxrwxrwx

factor.bat

3.77 KB

-rwxrwxrwx

factor.pl

3.16 KB

-rw-rw-rw-

findrule

3.24 KB

-rw-rw-rw-

findrule.bat

3.88 KB

-rwxrwxrwx

h2ph.bat

30.27 KB

-rwxrwxrwx

h2xs.bat

62.43 KB

-rwxrwxrwx

htmltree

1.28 KB

-rw-rw-rw-

htmltree.bat

1.81 KB

-rwxrwxrwx

hypnotoad

1.03 KB

-rw-rw-rw-

hypnotoad.bat

1.58 KB

-rwxrwxrwx

instmodsh

4.09 KB

-rw-rw-rw-

instmodsh.bat

5.03 KB

-rwxrwxrwx

json_pp

4.77 KB

-rw-rw-rw-

json_pp.bat

5.52 KB

-rwxrwxrwx

json_xs

6.84 KB

-rw-rw-rw-

json_xs.bat

7.6 KB

-rwxrwxrwx

kwalitee-metrics

2.34 KB

-rw-rw-rw-

kwalitee-metrics.bat

2.96 KB

-rwxrwxrwx

libgcc_s_seh-1.dll

74.5 KB

-rw-rw-rw-

libnetcfg.bat

16.88 KB

-rwxrwxrwx

libstdc++-6.dll

1.36 MB

-rw-rw-rw-

libwinpthread-1.dll

51 KB

-rw-rw-rw-

llw32helper.bat

4.8 KB

-rwxrwxrwx

llw32helper.pl

4.13 KB

-rw-rw-rw-

lwp-download

10.04 KB

-rw-rw-rw-

lwp-download.bat

10.88 KB

-rwxrwxrwx

lwp-dump

2.64 KB

-rw-rw-rw-

lwp-dump.bat

3.26 KB

-rwxrwxrwx

lwp-mirror

2.35 KB

-rw-rw-rw-

lwp-mirror.bat

2.96 KB

-rwxrwxrwx

lwp-request

15.81 KB

-rw-rw-rw-

lwp-request.bat

16.88 KB

-rwxrwxrwx

mech-dump

4.74 KB

-rw-rw-rw-

mech-dump.bat

5.44 KB

-rwxrwxrwx

minicpan

5.36 KB

-rw-rw-rw-

minicpan.bat

6.05 KB

-rwxrwxrwx

module-version

2.06 KB

-rw-rw-rw-

module-version.bat

2.65 KB

-rwxrwxrwx

mojo

408 B

-rw-rw-rw-

mojo.bat

953 B

-rwxrwxrwx

moose-outdated

427 B

-rw-rw-rw-

moose-outdated.bat

977 B

-rwxrwxrwx

morbo

2.15 KB

-rw-rw-rw-

morbo.bat

2.72 KB

-rwxrwxrwx

mymeta-cpanfile

2.7 KB

-rw-rw-rw-

mymeta-cpanfile.bat

3.32 KB

-rwxrwxrwx

nssm_32.exe

288 KB

-rwxrwxrwx

nssm_64.exe

323.5 KB

-rwxrwxrwx

package-stash-conflicts

463 B

-rw-rw-rw-

package-stash-conflicts.bat

1013 B

-rwxrwxrwx

parinstallppd

3.35 KB

-rw-rw-rw-

parinstallppd.bat

3.99 KB

-rwxrwxrwx

perl.exe

39 KB

-rwxrwxrwx

perl5.32.1.exe

39 KB

-rwxrwxrwx

perl532.dll

3.26 MB

-rw-rw-rw-

perlbug.bat

46.8 KB

-rwxrwxrwx

perldoc.bat

1016 B

-rwxrwxrwx

perlglob.bat

1.95 KB

-rwxrwxrwx

perlglob.exe

17 KB

-rwxrwxrwx

perlivp.bat

11.72 KB

-rwxrwxrwx

perlthanks.bat

46.8 KB

-rwxrwxrwx

perltidy

175.27 KB

-rw-rw-rw-

perltidy.bat

180.32 KB

-rwxrwxrwx

pgplet

10.37 KB

-rw-rw-rw-

pgplet.bat

11.22 KB

-rwxrwxrwx

piconv

8.07 KB

-rw-rw-rw-

piconv.bat

9.13 KB

-rwxrwxrwx

pkg-config

46.94 KB

-rw-rw-rw-

pkg-config.bat

49.2 KB

-rwxrwxrwx

pl2bat.bat

11.49 KB

-rwxrwxrwx

pl2bat.pl

10.4 KB

-rw-rw-rw-

pl2pm.bat

5.56 KB

-rwxrwxrwx

pler

540 B

-rw-rw-rw-

pler.bat

1.07 KB

-rwxrwxrwx

pm-uninstall

820 B

-rw-rw-rw-

pm-uninstall.bat

1.28 KB

-rwxrwxrwx

pod2html.bat

5.02 KB

-rwxrwxrwx

pod2latex

10.39 KB

-rw-rw-rw-

pod2latex.bat

10.92 KB

-rwxrwxrwx

pod2man.bat

15.42 KB

-rwxrwxrwx

pod2text.bat

11.29 KB

-rwxrwxrwx

pod2usage

4.16 KB

-rw-rw-rw-

pod2usage.bat

4.67 KB

-rwxrwxrwx

pod_cover

1.37 KB

-rw-rw-rw-

pod_cover.bat

1.94 KB

-rwxrwxrwx

podchecker

3.7 KB

-rw-rw-rw-

podchecker.bat

4.21 KB

-rwxrwxrwx

podselect

2.56 KB

-rw-rw-rw-

podselect.bat

3.07 KB

-rwxrwxrwx

ppd2par

4.64 KB

-rw-rw-rw-

ppd2par.bat

5.32 KB

-rwxrwxrwx

ppm.bat

35.53 KB

-rwxrwxrwx

ppm.pl

33.99 KB

-rw-rw-rw-

primes.bat

21.45 KB

-rwxrwxrwx

primes.pl

20.34 KB

-rw-rw-rw-

prove.bat

14.07 KB

-rwxrwxrwx

ptar

3.38 KB

-rw-rw-rw-

ptar.bat

4.28 KB

-rwxrwxrwx

ptardiff

2.48 KB

-rw-rw-rw-

ptardiff.bat

3.35 KB

-rwxrwxrwx

ptargrep

4.19 KB

-rw-rw-rw-

ptargrep.bat

5.14 KB

-rwxrwxrwx

pwnkit

10.99 KB

-rw-rw-rw-

runperl.bat

2.72 KB

-rwxrwxrwx

scan-perl-prereqs-nqlite

5.28 KB

-rw-rw-rw-

scan-perl-prereqs-nqlite.bat

6 KB

-rwxrwxrwx

search.bat

55.83 KB

-rwxrwxrwx

shasum.bat

10.48 KB

-rwxrwxrwx

splain.bat

20.43 KB

-rwxrwxrwx

streamzip

5.45 KB

-rw-rw-rw-

streamzip.bat

6.17 KB

-rwxrwxrwx

stubmaker.bat

4.01 KB

-rwxrwxrwx

stubmaker.pl

3.35 KB

-rw-rw-rw-

test-yaml

1017 B

-rw-rw-rw-

test-yaml.bat

1.56 KB

-rwxrwxrwx

tpage

8.85 KB

-rw-rw-rw-

tpage.bat

9.64 KB

-rwxrwxrwx

ttree

38.21 KB

-rw-rw-rw-

ttree.bat

39.9 KB

-rwxrwxrwx

use-devel-checklib

2.7 KB

-rw-rw-rw-

use-devel-checklib.bat

3.31 KB

-rwxrwxrwx

whirlpoolsum

4.93 KB

-rw-rw-rw-

whirlpoolsum.bat

5.67 KB

-rwxrwxrwx

wperl.exe

39 KB

-rwxrwxrwx

xml_grep

13.32 KB

-rw-rw-rw-

xml_grep.bat

14.3 KB

-rwxrwxrwx

xml_merge

3.89 KB

-rw-rw-rw-

xml_merge.bat

4.55 KB

-rwxrwxrwx

xml_pp

7.82 KB

-rw-rw-rw-

xml_pp.bat

8.61 KB

-rwxrwxrwx

xml_spellcheck

6.34 KB

-rw-rw-rw-

xml_spellcheck.bat

7.1 KB

-rwxrwxrwx

xml_split

21.13 KB

-rw-rw-rw-

xml_split.bat

22.27 KB

-rwxrwxrwx

xsubpp.bat

5.78 KB

-rwxrwxrwx

zipdetails

56.01 KB

-rw-rw-rw-

zipdetails.bat

58.95 KB

-rwxrwxrwx

Code Editor : json_pp.bat

@rem = '--*-Perl-*--
@set "ErrorLevel="
@if "%OS%" == "Windows_NT" @goto WinNT
@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
@set ErrorLevel=%ErrorLevel%
@goto endofperl
:WinNT
@perl -x -S %0 %*
@set ErrorLevel=%ErrorLevel%
@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl
@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.
@goto endofperl
@rem ';
#!/usr/bin/perl
#line 30

BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use Getopt::Long;
use Encode ();

use JSON::PP ();

# imported from JSON-XS/bin/json_xs

my %allow_json_opt = map { $_ => 1 } qw(
    ascii latin1 utf8 pretty indent space_before space_after relaxed canonical allow_nonref
    allow_singlequote allow_barekey allow_bignum loose escape_slash indent_length
);

GetOptions(
   'v'   => \( my $opt_verbose ),
   'f=s' => \( my $opt_from = 'json' ),
   't=s' => \( my $opt_to = 'json' ),
   'json_opt=s' => \( my $json_opt = 'pretty' ),
   'V'   => \( my $version ),
) or die "Usage: $0 [-V] [-f from_format] [-t to_format] [-json_opt options_to_json1[,options_to_json2[,...]]]\n";

if ( $version ) {
    print "$JSON::PP::VERSION\n";
    exit;
}

$json_opt = '' if $json_opt eq '-';

my %json_opt;
for my $opt (split /,/, $json_opt) {
    my ($key, $value) = split /=/, $opt, 2;
    $value = 1 unless defined $value;
    die "'$_' is not a valid json option" unless $allow_json_opt{$key};
    $json_opt{$key} = $value;
}

my %F = (
   'json' => sub {
      my $json = JSON::PP->new;
      my $enc =
         /^\x00\x00\x00/s  ? "utf-32be"
       : /^\x00.\x00/s     ? "utf-16be"
       : /^.\x00\x00\x00/s ? "utf-32le"
       : /^.\x00.\x00/s    ? "utf-16le"
       :                     "utf-8";
      for my $key (keys %json_opt) {
        next if $key eq 'utf8';
        $json->$key($json_opt{$key});
      }
      $json->decode( Encode::decode($enc, $_) );
   },
   'eval' => sub {
        my $v = eval "no strict;\n#line 1 \"input\"\n$_";
        die "$@" if $@;
        return $v;
    },
);

my %T = (
   'null' => sub { "" },
   'json' => sub {
      my $json = JSON::PP->new->utf8;
      for my $key (keys %json_opt) {
        $json->$key($json_opt{$key});
      }
      $json->canonical if $json_opt{pretty};
      $json->encode( $_ );
   },
   'dumper' => sub {
      require Data::Dumper;
      local $Data::Dumper::Terse     = 1;
      local $Data::Dumper::Indent    = 1;
      local $Data::Dumper::Useqq     = 1;
      local $Data::Dumper::Quotekeys = 0;
      local $Data::Dumper::Sortkeys  = 1;
      Data::Dumper::Dumper($_)
   },
);

$F{$opt_from}
   or die "$opt_from: not a valid fromformat\n";

$T{$opt_to}
   or die "$opt_from: not a valid toformat\n";

{
  local $/;
  binmode STDIN;
  $_ = <STDIN>;
}

$_ = $F{$opt_from}->();
$_ = $T{$opt_to}->();

print $_;

__END__

=pod

=encoding utf8

=head1 NAME

json_pp - JSON::PP command utility

=head1 SYNOPSIS

json_pp [-v] [-f from_format] [-t to_format] [-json_opt options_to_json1[,options_to_json2[,...]]]

=head1 DESCRIPTION

json_pp converts between some input and output formats (one of them is JSON).
This program was copied from L<json_xs> and modified.

The default input format is json and the default output format is json with pretty option.

=head1 OPTIONS

=head2 -f

-f from_format

Reads a data in the given format from STDIN.

Format types:

=over

=item json

as JSON

=item eval

as Perl code

=back

=head2 -t

Writes a data in the given format to STDOUT.

=over

=item null

no action.

=item json

as JSON

=item dumper

as Data::Dumper

=back

=head2 -json_opt

options to JSON::PP

Acceptable options are:

ascii latin1 utf8 pretty indent space_before space_after relaxed canonical allow_nonref
    allow_singlequote allow_barekey allow_bignum loose escape_slash indent_length

Multiple options must be separated by commas:

Right: -json_opt pretty,canonical

Wrong: -json_opt pretty -json_opt canonical

=head2 -v

Verbose option, but currently no action in fact.

=head2 -V

Prints version and exits.

=head1 EXAMPLES

$ perl -e'print q|{"foo":"あい","bar":1234567890000000000000000}|' |\
       json_pp -f json -t dumper -json_opt pretty,utf8,allow_bignum
    
    $VAR1 = {
              'bar' => bless( {
                                'value' => [
                                             '0000000',
                                             '0000000',
                                             '5678900',
                                             '1234'
                                           ],
                                'sign' => '+'
                              }, 'Math::BigInt' ),
              'foo' => "\x{3042}\x{3044}"
            };

$ perl -e'print q|{"foo":"あい","bar":1234567890000000000000000}|' |\
       json_pp -f json -t dumper -json_opt pretty
    
    $VAR1 = {
              'bar' => '1234567890000000000000000',
              'foo' => "\x{e3}\x{81}\x{82}\x{e3}\x{81}\x{84}"
            };

=head1 SEE ALSO

L<JSON::PP>, L<json_xs>

=head1 AUTHOR

Makamaka Hannyaharamitu, E<lt>makamaka[at]cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__END__
:endofperl
@set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%

${this.title}

Code Editor : json_pp.bat