1 @sample = (11.233,{3 => 4, "hello" => [6,7]});
4 $level = -1; # Level of indentation
19 print_indented ($_[0]);
25 if (exists ($already_seen{$r})) {
26 print_indented ("$r (Seen earlier)");
31 my $ref_type = ref($r);
32 if ($ref_type eq "ARRAY") {
34 } elsif ($ref_type eq "SCALAR") {
37 } elsif ($ref_type eq "HASH") {
39 } elsif ($ref_type eq "REF") {
41 print_indented("Ref -> ($r)");
45 print_indented ("$ref_type (not supported)");
52 print_indented ("[ # $r_array");
53 foreach $var (@$r_array) {
68 print_indented ("{ # $r_hash");
69 while (($key, $val) = each %$r_hash) {
70 $val = ($val ? $val : '""');
73 print_indented ("$key => ");
76 print_indented ("$key => $val");
85 $spaces = ": " x $level;
86 print "${spaces}$_[0]\n";
89 # vim:ts=4:sw=4:expandtab:tw=80