Database size report(perl)

netlanders: here is a perl script i wrote to produce a report on individual database size for online 5.xx. it should work with online 6.xx & 7.xx. i hope someone finds it useful. brickbats & flames > /dev/null. bouquettes & alocades appreciated. larry d. clark buddy@netcom.com #cut to here #!/usr/bin/perl sub commas { local($_) = @_; l while s/(.*\\d)(\\d\\d\\d)/$1,$2/; "$_"; } $raw_file = "/tmp/tbcheck.out"; $rpt_file = "/tmp/database.rpt"; # get the raw file to work on $cmd = `tbcheck -pe > $raw_file`; system($cmd); # sort it $cmd = `sort -o $raw_file $raw_file`; system($cmd); # the machine name @flds = split(' ', `uname -a`); $mach_name = $flds[1]; # the system date $the_date = `date`; $user_name = " "; # open the input file for reading open(INFILE, "<$raw_file") || die "can't open $raw_file\\n"; # open the report file open(OUTFILE, ">$rpt_file") || die "can't open $rpt_file\\n"; printf OUTFILE "\\nDatabase Usage Report Date : %s\\n", $the_date; printf OUTFILE "System: %s\\n\\n", $mach_name; $usr_tot = 0; $mas_tot = 0; # while there is input while (<INFILE>) { chop($_); if (length($_) < 2) { next; } # make everything lower case $_ =~ tr/A-Z/a-z/; # throw away all informix tables if ($_ =~ ".sys") { next; } if ($_ =~ "chunk") { next; } # throw away extent warnings if ($_ =~ "warning") { next; } # throw away free messages if ($_ =~ "free") { next; } if ($_ =~ "----------") { next; } if ($_ =~ "other reserved pages") { next; } if ($_ =~ "database tblspace") { next; } if ($_ =~ "logical log pages") { next; } if ($_ =~ "tblspace tblspace") { next; } if ($_ =~ "physical log pages") { next; } if ($_ =~ "root dbspace reserved pages") { next; } if (/^ /) { next; } if ($_ =~ "dbspace usage report") { next; } # break up initial line @flds = split(' ', $_); @flds1 = split(':', $flds[0]); if ($user_name ne $flds1[0]) { if ($usr_tot > 0) { $usr_tot = do commas($usr_tot); printf OUTFILE "Total Usage for %-18.18s %18.18s pages\\n", $user_name, $usr_tot; $usr_tot = 0; } $user_name = $flds1[0]; } $usr_tot += $flds[2]; $mas_tot += $flds[2]; } if ($usr_tot > 0) { $usr_tot = do commas($usr_tot); printf OUTFILE "Total Usage for %-18.18s %18.18s pages\\n", $user_name, $usr_tot; } $mas_tot = do commas("$mas_tot"); printf OUTFILE "\\nTotal usage %s pages\\n", $mas_tot; close(OUTFILE); exit;