Hej Scripting Gurus, jag är ny bee i perlOch försöker skriva ett manus som måste skriva ut ledigt diskutrymme tillgången på C-och E-enheter. Vänligen råd.

Här är skriptet sträng och förväntad produktion:


#! / usr / bin /perl
använda CGI qw /: html3: standard /;
$ spaceuselog \u003d "E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.log.txt";
$ rapport \u003d "E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.html";
öppen (LOG, "> $ rapporten") | | die "ERROR skriva till loggfil $ loggfil!";
$ datetime \u003d Localtime ();
$ count \u003d 0;
$ vob \u003d "";
$ vobsize \u003d 0;
$ totalvobsize + \u003d 0;
$ vd \u003d "";
$ summa \u003d 0;

# @ vobs \u003d "ct lsvob-s-värd blrcc1"
@ vobs \u003d ( "\ \ scm_blr_amor","\ \ scm_blr_projects","\ \ scm_blr_misc","\ \ blr_mobile_projects","\ \ blr_mobile_test");
if ($ ENV (OS) \u003d ~ m / Windows /)
(
$ store \u003d $ ENV (SystemDrive);
öppen (VSU, "> $ rapporten") or die "Kan inte öppna: $! \ n";
öppen (VS, ">> $ rapporten") or die "Kan inte öppna: $! \ n";
$ ct \u003d "cleartool";
)
annan
(
öppen (VSU "> E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.html") or die "Kan inte öppna: $! \ n";
$ ct \u003d "C: \ \ Program Files \ \ Rational \ \ ClearCase \ \ bin \ \ cleartool.exe";
)
push (@ vsu, start_html (vob Space Usage rapporten ")," \ n ");
push (@ vsu "<p> <b> VOB Backup processen har slutförts på Backup Server: <font color\u003dblue> BLRSTG01 </ font color> </ b>");
push (@ vsu "<p> VOBs backas upp och finnas på plats: \ \ blrstg01 \ ClearCase \ säkerhetskopiering mapp. </ p> ");
push (@ vsu, "\ n <td width\u003dauto align\u003dcenter> \u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d \u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d \u003d\u003d\u003d\u003d \u003d \ n ");
push (@ vsu "<p> <b> VOB Storlek Status på VOB Server: <font color\u003dblue> BLRCC1 </ font color> </ b> </ p>");
push (@ vsu "<table border\u003d1 width\u003dauto> \ n");
push (@ vsu "<tr> \ n");
push (@ vsu "<td width\u003dauto align\u003dcenter> <b> vob namn </ b> </ td> \ n");
push (@ vsu "<td width\u003dauto align\u003dcenter> <b> Storlek i MB </ b> </ td> \ n");
push (@ vsu "<td width\u003dauto align\u003dcenter> <b> Storlek i Gb </ b> </ td> \ n");
push (@ vsu, "</ tr> \ n");
push (@ vs, "</ table>");

foreach $ vob (@ vobs)
(
$ vobname \u003d $ vob;
chomp ($ vobname);
push (@ vsu "<tr> \ n");
push (@ vsu "<td width\u003dauto align\u003dleft> $ vobname </ td> \ n");
@ vbpath \u003d "ct lsvob $ vob"
foreach $ väg (@ vbpath)
(
# Print "\ n $ väg";
$ path \u003d ~ s / \ * / /;
$ path \u003d ~ s / \ s / /;
# Print "\ n $ väg";
if ($ path \u003d ~ / \ s (\ \ \ \ [A-Za-z \ \ a-z0-9 \ _ \. \ \ ]*)/)
(
# print "\ nVOBPATH -> $ 1 \ n";
$ cdft \u003d "$ 1 \ \ c \ \ cdft";
# print LOG "\ t $ cdft";
$ ddft \u003d "$ 1 \ \ d \ \ ddft";
# print LOG "\ t $ ddft";
$ db \u003d "$ 1 \ \ db";
# print LOG "\ t $ db";
$ sdft \u003d "$ 1 \ \ s \ \ sdft";
# print "\ n Källa Pool ---> $ sdft";
$ vobpath \u003d $ 1;
# print "\ nVOBPath >>>>>>>$ vobpath";
)
)
@ totspace \u003d "diruse / m $ vobpath"
@ a \u003d split ( "", $ totspace [-1]);
$ totalvobsize \u003d $ a [0];
# Print LOG "\ t \ t $ totalvobsize";
push (@ vsu "<td width\u003dauto align\u003dcenter> $ totalvobsize </ td> \ n");
$ totalGBsize \u003d ($ totalvobsize / 1024);
# Print LOG "\ t \ t $ totalGBsize";
push (@ vsu "<td width\u003dauto align\u003dcenter> $ totalGBsize </ td> \ n");

)
# push (@ vs "<p> diskanvändning av <b> C </ b> Kör </ p> \ n");

# push (@ vs "<p> diskanvändning av <b> E </ b> Kör (VOBs Lagring inkluderat) </ p> \ n");
# foreach (@ msg)
# (
# Print $ _;
#)
foreach (@ vsu)
(
print LOG;
)
# push (@ vsu, <table>);
foreach (@ vs)
(
print LOG;
Skriv ut RLOG;
)
öppen (RLOG, "<E: \ \ backup \ \ log \ \ rlog.txt");
@ rlog \u003d <RLOG>;
for (@ rlog) (
# Print om / diskanvändning / .. 0
push (@ du, $ _) om / diskanvändning / .. 0
)
$ sett \u003d 1;
foreach $ rad (@ du)
(
# @ Nya \u003d split (/ \ s /,$_);
chomp ($ line);
# Print "\ n $ line";
if (($ line \u003d ~ / ^ [0-9] * /) & & ($ line \u003d ~ / gratis $ /))
(
@ val \u003d split (/ \ s / $ line);
$ ny \u003d $ val [0];
$ ny \u003d sprintf "% .2 f", $ ny;
# Print "\ NI am bearbetning C köra info, värdet av nya variabel $ ny";
if ($ nytt <100,00)
(
print "\ nDet ledigt utrymme på BLRCC1 C enhet är mindre än 100 GB, du uppgradera / Frigör utrymme på disken";
)
# Else
# (
print "\ nDet ledigt utrymme på BLRCC1 C enheten $ ny";
#)
$ val [0] \u003d 0;
$ sett \u003d 0;
)
$ sett \u003d 2;
# Print "\ nLooped: $ sett \ n";
if (($ line \u003d ~ / ^ [0-9] * /) & & ($ line \u003d ~ / gratis $ /) & & ($ sett \u003d\u003d 2))
(
@ val \u003d split (/ \ s / $ line);
$ Raghu \u003d $ val [0];
# Print "\ nValue är $ val [0] \ n";
$ Raghu \u003d sprintf "% .2 f", $ Raghu;
# Print "\ NI am bearbetning E köra info, värdet av nya variabel $ Raghu";
if ($ Raghu <100,00)
(
print "\ nDet ledigt utrymme på BLRCC1 E-enheten är mindre än 100 GB, du uppgradera / Frigör utrymme på disken";
)
# Else
# (
print "\ nDet ledigt utrymme på BLRCC1 E enheten $ Raghu";
#)
)
print LOGG "<p> $ linje </ p>";
push (@ vs "<p> $ linje </ p> \ n");
)
nära RLOG;
nära LOG;
nära VS;
nära VSU;

Just nu befinner jag mig att få produktionen enligt nedan:

Den ledigt utrymme på BLRCC1 C enhet är 103,82
Den ledigt utrymme på BLRCC1 E enheten 103,82
Den ledigt utrymme på BLRCC1 C enhet är 145,17
Den ledigt utrymme på BLRCC1 E enheten 145,17

Förväntad effekt:

Den ledigt utrymme på BLRCC1 C enhet är 103,82
Den ledigt utrymme på BLRCC1 E enheten 145,17