mirror of
https://github.com/major/MySQLTuner-perl.git
synced 2024-09-21 07:47:08 +00:00
29 lines
525 B
Perl
29 lines
525 B
Perl
#!/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use File::Basename;
|
|
|
|
my $headerSep=$ARGV[0];
|
|
my $txtFile=$ARGV[1];
|
|
my $fileid =basename($txtFile);
|
|
$fileid=~ s/\./-/g;
|
|
|
|
open(my $fh, '<', $txtFile) or die "Could not open file '$txtFile' $!";
|
|
print "\n<pre>";
|
|
my $i=1;
|
|
while (my $row = <$fh>) {
|
|
chomp $row;
|
|
if ($row =~ /^$headerSep/) {
|
|
print "</pre>\n";
|
|
$row =~ s/$headerSep//g;
|
|
print "<H3 >$row</H3>\n";
|
|
print "<pre>";
|
|
$i++;
|
|
next;
|
|
}
|
|
print "$row\n" unless $row =~ /^\s*$/;
|
|
}
|
|
print "</pre>\n";
|
|
close $fh;
|
|
|