Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^2: Hash assignments using map

by njcodewarrior (Pilgrim)
on Feb 25, 2007 at 02:52 UTC ( [id://601954]=note: print w/replies, xml ) Need Help??


in reply to Re: Hash assignments using map
in thread Hash assignments using map

Hi japhy

Not to beat a dead horse here, but to answer your question:

I'm checking the keys in another hash against those in %keepers. If a keys exists in this other hash, but NOT in %keepers, I want to eliminate it from the hash. See this node for further explanation.

Anyways, thanks for the clarification

njcodewarrior

Replies are listed 'Best First'.
Re^3: Hash assignments using map
by japhy (Canon) on Feb 25, 2007 at 14:03 UTC
    Right. My point is, why not loop over the elements in @keepers, rather than the keys of the other hash? 
    my %big_hash = (...);
my @to_keep = ('abc', 'xyz');

%big_hash = map { exists($big_hash{$_}) ? ($_ => $big_hash{$_}) : () }
+ @to_keep;
# or
%big_hash = map { $_ => $big_hash{$_} } grep { exists $big_hash{$_} } 
+@to_keep;

    [download]
    Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
    How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://601954]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2024-04-25 12:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found