reportFragmentation.pl

#!/usr/bin/perl -w
#
# This script will run a full integrity on the provided backup database file.
# It will create a CSV report of the fragmentation percent of the globals.
#
use strict;
use warnings;

print "Which database file should I examine? ";
my $dbfile = <STDIN>;
chomp $dbfile;
die "Database file $dbfile error: $!\n" unless -f $dbfile;

chomp(my $TMP = `mktemp -u`);
my $cmd = "mupip integ -full -nomap -file $dbfile > $TMP 2>&1";

print "Running command: $cmd\n";
system($cmd) or warn "Error: $?\n";
sleep(2);

open(TMP,"$TMP") or die "Can't open file: $TMP $!\n";
print "Examining output file: $TMP\n";

while(<TMP>) {
    chomp;
    s/^\s+//; # remove leadin spaces
    next if (/^\s+$/); # skip blank lines
    if (/Integ/)  {
	print $_, "\n";
	print "Global Variable,None-Adjacent Blocks,Total Blocks,Fragmentation %", "\n";
	next;
    }
    if (/Global variable (.*)/) { print"$1"; }
    if (/^0/) {
	my @pieces = ();
	@pieces = split;
	my $fragPercent = "Unknown";
	if($pieces[4] eq "NA") { next; }
	else {
	    $fragPercent = 100-100*$pieces[4]/$pieces[1];
	}
	print ",";
	print $pieces[1]-$pieces[4];
	print ",";
	print $pieces[1];
	print ",";
	if($fragPercent ne "Unknown") {
	    $fragPercent = sprintf("%5.2f", $fragPercent);
	    print $fragPercent;
	}
	else {
	    print $fragPercent;
	}
	print "\n";
    }
}
close (TMP);
sleep(2);
unlink $TMP;