So here is what i want to do: Monitor a bunch of tables in a MySQL database, append time stamps to WHEN the values changed, and then render the result in a graph.

Dear Monk,
I'm a bit confused as to what you are trying to do. Let me step through your code though and offer some commentary.

my $database = 'co_sysdev';
my $server = 'devqa_dbm.hq.co.corp';
my $user = 'web';
my $passwd = '3br!';
my $row = "";
[download]

Hope those aren't really production passwords. Never post such to this site as Google does a fine job of spidering this site from time to time making this sort of thing easy to find.

my $homologs = DBI->connect("dbi:mysql:database=co_sysdev;host=devqa_d
+bm.corp;port=3310",'username','password');
[download]

So.. what were those other lines for?

#my $query_params = "select * from system_params";
# render the result in a graph format
# save it locally in a csv format, to be used later for report
my $query_coding_event = "select * from coding_event";
my $query_params = "select * from co_event";
#my $query = "select * from n_batch where status = 'started'";
#my $query = "select * from n_batch"; 
#my $query = "select id,customer_id,location_id,submitter,n_notes,hand
+le from submission_batch where id is not null"; 
#my $query = "select id,customer_id,location_id,submitter,n_notes,hand
+le from submission_batch where id is not null"; 
#my $query = "describe submission_batch"; 
#my $query = "show tables";
my $sql_params = $homologs->prepare($query_params);
[download]

when posting code to the PM remember to remove unnecessary lines for readability. This is what it should have looked like IMHO:

my $query_coding_event = "select * from coding_event";
my $query_params = "select * from co_event";

my $sql_params = $homologs->prepare($query_params);
[download]

so we can see what you are trying to run.

while (my $row = $sql_params->fetchrow_arrayref) {
    #print join("\t", @$row), "\n";
    print join(@$row), "\n";
    print @$row . " \n";
}
[download]

Let's start with the line print join(@row),"\n";. Is this doing what you expect? What is going to happen is join is going to take the first element in your array and use it for a separator for the rest of the array. Here's an example of what I am saying:

$ perl -e 'print join(qw/a b c d e f/),"\n"'
bacadaeaf
[download]

Not sure that's what you were after. Then you do print $@row . "\n";, why? Looks to me like you are repeating yourself.

i used DBI, and was able to connect to the database and get some table column values:

So.. what are you trying to do with those values? What have you tried? What was the result?

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.