Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: How would you rewrite this?

by larryk (Friar)
on Apr 27, 2005 at 15:22 UTC ( #451986=note: print w/ replies, xml ) Need Help??

in reply to How would you rewrite this?

hmm. the fiddle with two 3 indexes mapping to contact_id makes it kinda ugly but if the order is not important...

my %stuff = ( agency_id => 0, advertiser => 1, campaign_id => 2, admin_contact_id => 3, tech_contact_id => 3, ); get_updates( $objects[$stuff{$_}], /(contact_id)$/ ? $1 : $_, # ugh $result_ref->{$_} ) for grep $result_ref->{$_}, keys %stuff;
but personally I would add return unless $_[2]; (or whatever you shifted $_[2] into) to get_updates to remove the requirement of checking $result_ref->{$_} every time.
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"

Comment on Re: How would you rewrite this?
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://451986]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2015-08-29 00:35 GMT
Find Nodes?
    Voting Booth?

    The oldest computer book still on my shelves (or on my digital media) is ...

    Results (341 votes), past polls