#!/usr/bin/perl ## ## LSLVMembers written 062306:1606 by BJP ## ## LSLVMembers displays what member hdisks belong to each logical volu +me. ## @lvList = split(/\s+/,`lsvg -o | lsvg -i -l | grep -v : | grep -v ^LV| + cut -d\" \" -f1`); print "\nLSLVMembers: Spinning up..\n"; foreach $item (@lvList) { print "LSLVMembers: \"$item\" encompasses "; @lvResults=split(/\s+/,`lslv -l $item`); $counter=0; $moreComing=0; $totalSize=@lvResults; while ($counter<=@lvResults) { if (($lvResults[$counter]=~/hdisk/ || $lvResults[$counter]=~/vpat +h/) && $counter<$totalSize-5) { print "$lvResults[$counter], "; $moreComing++; } if (($lvResults[$counter]=~/hdisk/ || $lvResults[$counter]=~/vpath +/) && $counter>($totalSize-5)) { if ($moreComing>0) { print "and "; } print "$lvResults[$counter]. "; } $counter++; } print "\n"; } print "LSLVMembers: Spinning down..\n\n";
www.com | www.net | www.org
No recent polls found