Help for this page

Select Code to Download

Select or download this

  DB<7> $exclude = sub  { my $href = shift;  my $excl= join '|', @_; r
+eturn  +{ %$href{ grep !/^$excl$/, keys %$href } } }

...
   'b' => 2
   'c' => 3
  DB<10>