p
use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Deepcopy = 1; $Data::Dumper::Sortkeys = 1; $Data::Dumper::Terse = 1; sub p(@) { my $d = Dumper(\@_); $d =~ s/\\x{([0-9a-z]+)}/chr(hex($1))/ge; print $d; }
my %very_complex_data = ( msg => 'give me a beer' ); p \%very_complex_data ↓ [ { 'msg' => 'give me a beer' } ]