Help for this page

Select Code to Download


  1. or download this
    my %new2 =
hmap { $_[1]{nick} =~ /rbush|fred/ ?
      ($_[0], hmap { $_[0], $_[1] } %{$_[1]}) : () } %$h;
  2. or download this
    my %new2 =
hmap { $_[1]{nick} =~ /rbush|fred/
          ? $_[0] => { hmap { $_[0], $_[1] } %{$_[1]} }
          : ()
     } %$h;
  3. or download this
    sub hmap (&$)
{
...
          ? $_[0] => hmap { $_[0], $_[1] } $_[1]
          : ()
     } $h;