Re: How to pass a ref from a language with no refs

[A. Pagaltzis]

* 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/>