|
/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Getopt-ExPar/blib/lib/Getopt/Reference_Parser.pm |
Examples:
1)
#Program:
my($x) = { 'a' => { 'a' => [ 'a', 'b', 'c', ],
'b' => 9,
'c' => 10, },
'b' => 'asdf',
'c' => [ 45, 56, 67, ], };
print ``\$x->'' . &reference_tree_string($x, ``\$x->'');
#Output: $x->{ 'a' => { 'a' => [ a, #0 b, #1 c, ], 'b' => 9, 'c' => 10, }, 'b' => asdf, 'c' => [ 45, #0 56, #1 67, ], }
2)
#Program:
my($x) = { 'a' => { 'a' => [ 'a', 'b', 'c', ],
'b' => 9,
'c' => 10, },
'b' => 'asdf',
'c' => [ 45, 56, 67, ], };
print ``\$x->'' . &reference_tree_string($x);
#Output: $x->{ 'a' => { 'a' => [ a, #0 b, #1 c, ], 'b' => 9, 'c' => 10, }, 'b' => asdf, 'c' => [ 45, #0 56, #1 67, ], }
|
/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Getopt-ExPar/blib/lib/Getopt/Reference_Parser.pm |