Mega Code Archive

 

Categories / Perl / Hash

 

Print mixed structure

#!/usr/bin/perl use warnings; use strict; my $mixed = [     'scalar', ['a', 'B', ['c', 'd'], 'e'],     {And=>{'A'=>'A'}}, \'a scalar ref' ]; print_structure($mixed); sub print_structure {     my ($data) = @_;     foreach (ref $data) {         /^$/ and print($data,"\n"), next;         /^SCALAR/ and print('-> ', $$data, "\n"), next;         /^HASH/ and do {             print "\n";             foreach my $key (keys %{$data}) {                 print "$key => ";                 print_structure ($data->{$key});             }             next;         };         /^ARRAY/ and do {             print "\n";             for my $elc (0..$#{$data}) {                 print "[$elc] : ";                 print_structure ($data->[$elc]);             }             next;         };         print "?$data?";     } }