[mirrors/Programs.git] / perl / map-reduce / recursive-json.pl

#!/usr/bin/env perl
use strict;
use warnings;

use JSON;
use Data::Dumper;

my $a={a=>{f=>"",b=>""},b=>{f=>"",b=>""}};
$a->{"b"}=$a;

print Dumper($a);
print encode_json($a)."\n"
Commit	Line	Data
0c2321c3 H	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"