* Mark Stosberg <[EMAIL PROTECTED]> [2006-09-29 14:18]:
> my $p5_dumper =
> eval('sub {use Data::Dumper; print Dumper(@_); }', :lang<perl5>);
>
> my @a = <b c d>;
> $p5_dumper.(@a); # received as array
> $p5_dumper.([EMAIL PROTECTED]); # received as arrayref
> $p5_dumper.(VAR @a); # received as arrayref
>
> my %h = ( a => 1 );
> $p5_dumper.(@%h); # received as hashref
> $p5_dumper.([,] %h); # received as hashref
> $p5_dumper.(|%h); # received as hashref
> $p5_dumper.(%h); # received as hashref
> $p5_dumper.(\%h); # received as hashref
> $p5_dumper.(VAR %h); # received as hashref
I think you want
$p5_dumper.(%h.kv);
Regards,
--
Aristotle Pagaltzis // <http://plasmasturm.org/>
