Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: DBI Style Inquiry

by muba (Priest)
on Jun 27, 2013 at 08:48 UTC ( #1040959=note: print w/replies, xml ) Need Help??

in reply to DBI Style Inquiry

Fugly is subjective, of course. However, what do you think about this?

sub get_loc { chomp $_[0]; # Aligned the "or" clauses with the main expressions my $dbh = DBI->connect("DBI:mysql:tracker:", 'myuser', 'mypas +sword') or die "Connect to database failed: $DBI::errstr\n"; my $sth = $dbh->prepare("SELECT location FROM servers WHERE name=? LIMIT + 1") or die "Couldn't prepare statement: $DBI::errstr\n"; $sth->execute($_[0]); # No point in assigning if you aren't going to use @loc anyway # return my @loc = $sth->fetchrow_array(); return $sth->fetchrow_array(); # This is dead code. Execution will jump out of the sub due to the + return statement above! # Put disconnect call and "or" clause on same line $sth->finish; $dbh->disconnect or die "Error disconnecting: $DBI::errstr\n"; # Aligned "}"-line with "sub get_loc {" line }

Replies are listed 'Best First'.
Re^2: DBI Style Inquiry
by edict (Novice) on Jun 27, 2013 at 09:00 UTC
    Awesome, I appreciate you giving time to formatting as well as pointing out the superfluous code!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1040959]
[marto]: someone else writes: [http://www. -im-learning-perl- 6.html|
[marto]: err, Why Iím Learning Perl 6

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2017-07-26 14:02 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (395 votes). Check out past polls.