Re^2: Monitoring mysql tables in perl

[kamal]

in reply to Re: Monitoring mysql tables in perl
in thread Monitoring mysql tables in perl

no those are made up usernames and passwords, and this is not for production. as far as what i am trying to do is to get reuslts like: staus| time s 10:55 k 12:20 e 13:10 so the table contains char's which change as a result of some other process, i just want to be able to store these values in a csv format, so i can render it in a graph. Hope this makes a bit more sense

[blue_cowdawg]

i just want to be able to store these values in a csv format, so i can render it in a graph.

Rendering an array of data into a CSV row is fairly simple. Here's one example:

#!/usr/bin/perl 
use strict;

my $data = [
   [ qw/ a b c d /],
   [ qw/ e f g h /],
   [ qw/ i j k l /]
];
my $outfile = "/path/to/my/file.csv";
open FOUT,"> $outfile" or die "$outfile: $!";

foreach my $row (@$data){
    printf FOUT "%s\n',join(",",@$row);
}
close FOUT;

There are many many other ways of doing this but there is one way.