7 use Text::Balanced qw/extract_bracketed/;
9 open my $hash_t, '<', 't/20-hash.t';
10 open my $array_t, '>', 't/21-array.t';
12 sub num { ord($_[0]) - ord('a') }
16 return $h unless $h and ref $h eq 'HASH';
19 $array[num($_)] = hash2array($h->{$_});
26 return 'undef' unless defined $a;
27 return $a unless ref $a;
28 die "Invalid argument" unless ref $a eq 'ARRAY';
29 return '[ ' . join(', ', map dump_array($_), @$a) . ' ]';
32 sub extract ($) { extract_bracketed $_[0], '{', qr/.*?(?<!\\)(?:\\\\)*(?={)/ }
43 s!(\ba\b)?(\s*)HASH\b!($1 ? 'an': '') . "$2ARRAY"!eg;
44 s!->{([a-z])}!'->[' . num($1) . ']'!eg;
48 my ($bracket, $prefix);
49 while (do { ($bracket, $suffix, $prefix) = extract($suffix); $bracket }) {
50 $buf .= $prefix . dump_array(hash2array(eval $bracket));
55 print $array_t "$buf\n";