Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Ternary confusion

by gryphon (Abbot)
on Feb 27, 2004 at 20:45 UTC ( #332372=note: print w/replies, xml ) Need Help??


in reply to Ternary confusion

Greetings Nik,

$db =
Whatever we end up returning, save it into a scalar.

($ENV{'SERVER_NAME'} ne "50free.net")
A conditional that evaluates whether the enviornment variable SERVER_NAME is not equal to "50free.net"

? DBI->connect("DBI:mysql:nikos_db", "root", "")
If the conditional is true, then connect to a database on the localhost as root with no password. (Root with no password. Wow, that's dumb.)

: DBI->connect("DBI:mysql:nikos_db:50free.net","nikos_db","macgyver")
If the conditional is false, then connect to a database on a remote box called "50free.net" with a username and password combo.

or print font({-size=>5, -color=>'Lime'}, $DBI::errstr) and exit 0
If the db connection doesn't return true, then print an error message and exit the program.

gryphon
code('Perl') || die;

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2020-11-27 12:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?