hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

nice looking CSV format

Browse source
This commit is contained in:
Jean-Marie Renouard 2023-03-03 15:46:52 +01:00
parent 72353f4d32
commit a787631287
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mysqltuner.pl
View file

@ -1053,6 +1053,9 @@ sub select_csv_file {
my @result =select_array($req); my @result =select_array($req);
open( my $fh, '>', $tfile ) or die "Could not open file '$tfile' $!"; open( my $fh, '>', $tfile ) or die "Could not open file '$tfile' $!";
for my $l (@result) { for my $l (@result) {
$l=~s/\t/","/g;
$l=~s/^/"/;
$l=~s/$/"/;
print $fh $l; print $fh $l;
} }
close $fh; close $fh;