#! /usr/bin/perl $a = { aa => 'b', bb => 'd', le1 => 'sad', le2 => 'ss' } ; my @keys = grep { ! /le/ } keys %$a ; @$c{@keys} = @$a{@keys}; foreach (keys %$c) { print "key=$_ et val=$c->{$_}\n" ; }
In reply to Re: create hash using grep
by borisz
in thread create hash using grep
by jeanluca
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |