Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Re: map it back jack

by redcloud (Parson)
on Dec 16, 2000 at 02:59 UTC ( #46961=note: print w/ replies, xml ) Need Help??


in reply to Re: map it back jack
in thread map it back jack

Seems like you can save a couple of keystrokes if you're not particular about what ends up in $v, since s/// operates on $_:

my $v; my %myhash = map { $v = $_; s/_/ /g; $v, $_ } @elements;
Is there a way to pare it down more? (The Monastery needs a golf course!)

Update: As I0 points out, this also modifies @elements, which may not be what you want.

johannz's for construct is looking the most elegant to me now.


Comment on Re: Re: map it back jack
Download Code
Replies are listed 'Best First'.
Re: Re: Re: map it back jack
by turnstep (Parson) on Dec 16, 2000 at 03:11 UTC
    In the quest for Shorter and More Efficient:
    my %myhash = map { $v=$_; y/_/ /; $_,$v } @elements;
Re: Re: Re: map it back jack
by I0 (Priest) on Dec 16, 2000 at 03:18 UTC
    You may not be particular about what ends up in $v, but if you're particular about what ends up in @elements you won't want to modify $_ ($v=$_)=~tr/_/ /;$_,$v

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2015-07-31 03:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (274 votes), past polls