#!/usr/bin/perl ### ceilingreport.pl written 022806:1022 by BJP ### ### This script examines how many free PPs remain in each volume group +. @vgs=`lsvg -L`; $hostName=`hostname`; chomp($hostName); foreach $i (@vgs) { chomp($i); $numFree=`lsvg -L $i| grep FREE`; $numFree=~/PPs:/; $numFree=$'; chomp($numFree); $numFree=~s/^\s+//g; print "CeilingReport (on $hostName): $i has $numFree PPs remai +ning.\n"; }
In reply to CeilingReport by bpoag
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |