Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^3: Monitoring mysql tables in perl

by blue_cowdawg (Monsignor)
on Jan 10, 2013 at 15:54 UTC ( #1012691=note: print w/replies, xml ) Need Help??


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

      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.


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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1012691]
help
Chatterbox?
[Lady_Aleena]: Module is currently 104 lines but will shirnk to 63. The script using the module is currently 40 lines but will grow to 82, 180 to 146 lines total. (This is after rewrting the data files.)

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2017-05-29 03:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?