Re^2: Monitoring mysql tables in perl

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

Comment on Re^2: Monitoring mysql tables in perl

Replies are listed 'Best First'.
Re^3: Monitoring mysql tables in perl by blue_cowdawg (Monsignor) on Jan 10, 2013 at 15:54 UTC
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;` [download] There are many many other ways of doing this but there is one way. Peter L. Berghold -- Unix Professional Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Monitoring mysql tables in perl
by blue_cowdawg (Monsignor) on Jan 10, 2013 at 15:54 UTC

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;
[download]

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

[reply]
[d/l]

In Section Seekers of Perl Wisdom