$VAR1 = {
'/cacxxx/pxxx/datxxx/' => {
'free' => '27.6',
'sz' => '200',
'mxs' => {
'200' => 'GB'
},
'dfree' => '168',
'avail' => '55'
},
'/cachxxx/usr/xxx/xxx/' => {
...
####
while (<$fh>) {
next if /^spawn/i .. /^right/i;
if ( /(Cxxx Database Free Space)/ ) {
$Ggroup = $1;
}
next if /Database\s+|Max Size|Size|Available|%Free|Disk Free|facxxxx|$uxdate.*/i;
next if $. == 35 or $. == 36;
next if /cacheaudit/i .. eof;
$db = +(split)[0];
$mxsz = +(split)[1];
$mxsz1 = substr($mxsz, 0, -2);
$mxunit = substr($mxsz, -2, 2);
$sz = +(split)[2];
$sz1 = substr($sz, 0, -2);
$szunit = substr($sz, -2, 2);
$avail = +(split)[3];
$avail1 = substr($avail, 0, -2);
$avunit = substr($avail, -2, 2);
$free = +(split)[4];
$dfree = +(split)[5];
$dfree1 = substr($dfree, 0, -2);
$dfunit = substr($dfree, -2, 2);
$cacheDBs{$db} = {
'mxs' => {$mxsz1, $mxunit},
'sz' => $sz1,
'avail' => $avail1,
'free' => $free,
'dfree' => $dfree1,
};
for my $key (keys %cacheDBs) {
print "\n/opt/freeware/bin/gmetric -n $db -T $db -g $Ggroup -t double -u MaxSize -v $cacheDBs{$db}->{mxs} -d 45)\n";
}
__out__
/opt/freeware/bin/gmetric -n /cacxxx/pixxx/daxxx/ -T /cacxxx/pitxx/daxxx/ -g Caxxx Database Free Space -t double -u MaxSize -v HASH(0x2015d98c) -d 45)
####
/opt/freeware/bin/gmetric -n /cacxxx/pitxxx/daxxx/ -T /cacxxx/pitxxx/daxxx/ -g Caxxx Database Free Space -t double -u MaxSize GB -v 250 -d 45)
####
Caxxx Database Free Space
Jul 09 2013 8:44 AM
Database Max Size Size Available %Free Disk Free
/cacxxx/crxxx/dxxx/ 240GB 240GB 53GB 21.88 133GB
/cacxxx/cxxx/daxxx/ 280GB 280GB 58GB 20.79 133GB