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:
There are many many other ways of doing this but there is one way.#!/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;
|
|---|