http://www.perlmonks.org?node_id=1012691


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

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