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)