in reply to Print subroutine problem
You need to fix your "print" statements inside your GetOptions processing to format the output. Eg:
Also, the final test should be for "@ARGV", not "$ARGV".
Add printing of a "\n" after you finish "GetOptions".'activeconn' => sub { print "Active_Conn:" . query_database($querys{activeconn}) . " "},
Also, the final test should be for "@ARGV", not "$ARGV".
Update: Noticed that CountOrlok beat me to it, with almost identical advice.
"I'm fairly sure if they took porn off the Internet, there'd only be one website left, and it'd be called 'Bring Back the Porn!'"
-- Dr. Cox, Scrubs
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Print subroutine problem
by Shivaramakrishnan (Initiate) on Apr 05, 2013 at 18:40 UTC | |
Re^2: Print subroutine problem
by Shivaramakrishnan (Initiate) on Apr 05, 2013 at 18:47 UTC | |
by CountOrlok (Friar) on Apr 05, 2013 at 18:54 UTC |
In Section
Seekers of Perl Wisdom