Help for this page

Select Code to Download


  1. or download this
    { \($$a->{$b}) }
  2. or download this
    % perl rec_walk.pl
Can't call method "List::Util::reduce" on unblessed reference at rec_w
+alk.pl line 9.
  3. or download this
    use strict;
my %myhash;
...
  require List::Util;
  return List::Util::reduce { \($$a->{$b}) } \shift, @_;
}
  4. or download this
    use List::Util 'reduce';
sub pointer_to_element {
  return reduce { \($$a->{$b}) } \shift, @_;
}