GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
8c57d00c928d83d9a5ee46f58ba60f448737b079
[mirrors/Programs.git]
/
perl
/
map-reduce
/
recursive-json.pl
1
#!/usr/bin/env perl
2
use
strict
;
3
use
warnings
;
4
5
use
JSON
;
6
use
Data
::
Dumper
;
7
8
my
$a
={
a
=>{
f
=>
""
,
b
=>
""
},
b
=>{
f
=>
""
,
b
=>
""
}};
9
$a
->{
"b"
}=
$a
;
10
11
print
Dumper
(
$a
);
12
print
encode_json
(
$a
).
"
\n
"
This page took
0.347895 seconds
and
5
git commands to generate.