Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: SQL script processor and executor

by ruzam (Curate)
on Jul 27, 2012 at 15:33 UTC ( #984041=note: print w/replies, xml ) Need Help??


in reply to Re: SQL script processor and executor
in thread SQL script processor and executor

map{$_ && s/\s.*//} $server,$user,$passwd,$dbconn,$dbuser,$dbpasswd,$s +hpath;

Map goes through the trouble of creating and returning a result for you. If you don't intend to use that result, you should probably not use map for the purpose.

I would do this instead:

s/\s.*// foreach ($server,$user,$passwd,$dbconn,$dbuser,$dbpasswd); $shpath =~ s/\s+.*// if $shpath;

I'm on the fence about treating $shpath separately. There's no reason to test all the variables (according to the OP code), just the $shpath variable. So testing all the other values is wasted CPU cycles. On the other hand, CPU cycles may not be important in this situation.

Replies are listed 'Best First'.
Re^3: SQL script processor and executor
by Mr. Muskrat (Canon) on Jul 27, 2012 at 19:27 UTC

    "Map goes through the trouble of creating and returning a result for you."

    That has not been true for a while now. "map in void context is no longer expensive. map is now context aware, and will not construct a list if called in void context." -- perl581delta

      I stand corrected.

      However I still wouldn't use map for this purpose.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://984041]
help
Chatterbox?
[GotToBTru]: ah yes that infamous poison di-hydrogen oxide
[Corion]: :-D
[Corion]: Di-hydrogen monoxide is even worse!

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (11)
As of 2016-12-06 12:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (103 votes). Check out past polls.