1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
|
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;
$datetime=localtime();
# $count variable is used to track the no of in the excel
$count=0;
$loc=$ENV{"TEMP"};
$loc="D:
VOBSpaceUsage";
$vob="";
$vobsize=0;
$totalvobsize+=0;
$vd="";
$sum=0;
# print " $loc -- ";
# Create a new Excel workbook
my $workbook = Spreadsheet::WriteExcel->new("$loc
poolsize.xls");
# Add a worksheet
$worksheet = $workbook->add_worksheet();
# Add and define a format
$format = $workbook->add_format(); # Add a format
$format->set_bold();
$format->set_color('blue');
$format->set_align('center');
$worksheet->write($count,0,"Updated on $datetime",$format);
$worksheet->write($count,1,"VOB Name",$format);
$worksheet->write($count,2,"db",$format);
$worksheet->write($count,3,"cdft",$format);
$worksheet->write($count,4,"ddft",$format);
$worksheet->write($count,5,"sdft",$format);
$worksheet->write($count,6,"Total Size in (MB)",$format);
$worksheet->write($count,7,"Total VOB Size in (GB)",$format);
@vobs = `ct lsvob -s -host vobserver`;
foreach $vob (@vobs)
{
$vobname=$vob;
chomp($vobname);
chop($vobname);
print "\n VOB Name :: $vobname \n";
@vobdiskuse = `cleartool space -vob -update $vob`;
foreach $vd (@vobdiskuse)
{
if ($vd =~ /VOB database/)
{
if ($vd =~ /(\d+\.\d+)\s+/)
{
$dbsize = $1;
# print "\n DB Pool:$dbsize Mb\n";
}
}
if ($vd =~ /cleartext/)
{
if ($vd =~ /(\d+\.\d+)\s+/)
{
$csize = $1;
# print "\n C Pool:$csize Mb\n";
}
}
if ($vd =~ /derived object/)
{
if ($vd =~ /(\d+\.\d+)\s+/)
{
$dosize = $1;
# print "\n DO Pool:$dosize Mb\n";
}
}
if ($vd =~ /source pool/)
{
if ($vd =~ /(\d+\.\d+)\s+/)
{
$srcsize = $1;
# print "\n SOURCE Pool:$srcsize Mb\n";
}
}
if ($vd=~ /^Total*/)
{
chomp($vd);
if ($vd=~ /\s(\d+\.\d+)\s/)
{
$vobsize=$1;
chomp($vobsize);
# print "VOB Size :: $vobsize \n";
$count++;
$worksheet->write($count,1,$vobname);
$worksheet->write($count,2,$dbsize);
$worksheet->write($count,3,$csize);
$worksheet->write($count,4,$dosize);
$worksheet->write($count,5,$srcsize);
$worksheet->write($count,6,$vobsize);
}
$totalvobsize+=$vobsize;
$totalvobsize = ($totalvobsize / 1024);
$sum+=$totalvobsize;
print "\nTotal Vobsize: $totalvobsize GB \n";
$worksheet->write($count,7,$totalvobsize);
}
}
$worksheet->add_row_at('poolsize.xls',25,new);
}
$worksheet->write($count,7,$sum);
|