Arrays and Hashes Mapping

jesuashok has asked for the wisdom of the Perl Monks concerning the following question:

@list = ( one , two , three );
%hash = ( one => 1 , two => 2 , three => 3 );

foreach (@list) {
  if ( $hash{$_} ) { $_ = '' ; }
}
[download]

I want the above method to be simplified by using map or something else But it should be simple ( i,e ) one line. If the key is available in hash then the value should be removed from the list

Anthony Jesu Ashok Majoris Systems Ltd Bangalore

2004-12-08 Janitored by Arunbear - added code tags, as per Monastery guidelines

Comment on Arrays and Hashes Mapping Download Code

Replies are listed 'Best First'.
Re: Arrays and Hashes Mapping by pingo (Hermit) on Dec 08, 2004 at 11:15 UTC
If I understand you correctly, perhaps something like this: `@list = ('one' , 'two' , 'three'); %hash = ( one => 1 , two => 2 , three => 3 ); @list = grep { !$hash{$_} } @list;` [download]	[reply] [d/l]
Re^2: Arrays and Hashes Mapping by kappa (Chaplain) on Dec 08, 2004 at 12:17 UTC
Better use `exists` here, so that `( zero => 0, empty => '' )` won't give you false positives: `@list = grep { !exists $hash{$_} } @list;` [download] --kap	[reply] [d/l] [select]