Hi Scripting Gurus, er jeg ny bi, perl, Og forsøger at skrive et script, der skal udskrive ledig diskplads tilgængeligheden af C og E-drev. Please rådgivning.

Her er scriptet kodestykke og forventet output:


#! / usr / bin /perl
bruge CGI qw /: html3: standard /;
$ spaceuselog \u003d "E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.log.txt";
$ rapport \u003d "E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.html«;
åben (LOG, "> $ rapport") | | die "FEJL skriftligt til logfile $ logfile!";
$ datetime \u003d Localtime ();
$ count \u003d 0;
$ vob \u003d "";
$ vobsize \u003d 0;
$ totalvobsize + \u003d 0;
$ vd \u003d "";
$ sum \u003d 0;

# @ vobs \u003d `ct lsvob-s-vært 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);
åben (VSU, "> $ rapport") or die "Kan ikke åbne: $! \ n";
åben (VS, ">> $ rapport") or die "Kan ikke åbne: $! \ n";
$ ct \u003d "cleartool";
)
anden
(
åben (VSU, "> E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.html") or die "Kan ikke åbne: $! \ n";
$ ct \u003d "C: \ \ Programmer \ \ Rationel \ \ ClearCase \ \ bin \ \ cleartool.exe";
)
push (@ vsu, start_html ( "VOB Space Usage rapport"), "\ n");
push (@ vsu, "<p> <b> VOB Backup processen afsluttet på Backup Server: <font color\u003dblue> BLRSTG01 </ font color> </ b>");
push (@ vsu, "<p> VOBs er bakket op og til rådighed på det sted: \ \ blrstg01 \ Clearcase \ sikkerhedskopieringer mappe. </ 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 Size 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 Navn </ b> </ td> \ n");
push (@ vsu, "<td width\u003dauto align\u003dcenter> <b> størrelse i MB </ b> </ td> \ n");
push (@ vsu, "<td width\u003dauto align\u003dcenter> <b> Størrelse i Gb </ b> </ td> \ n");
push (@ vsu, "</ tr> \ n");
push (@ vs "</ table>");

foretrukne $ 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«;
foretrukne $ path (@ vbpath)
(
# Print "\ n $ path";
$ path \u003d ~ s / \ * / /;
$ path \u003d ~ s / \ s / /;
# Print "\ n $ path";
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 \ \ r \ \ sdft";
# print "\ n Kilde 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> Disk Usage af <b> C </ b> Drive </ p> \ n");

# push (@ vs "<p> Disk Usage af <b> E </ b> Drive (VOBs Storage inkluderet) </ p> \ n");
# foretrukne (@ msg)
# (
# Print $ _;
#)
foretrukne (@ vsu)
(
print LOG;
)
# push (@ vsu, <table>);
foretrukne (@ vs)
(
print LOG;
print RLOG;
)
åben (RLOG, "<E: \ \ sikkerhedskopieringer \ \ log \ \ rlog.txt");
@ rlog \u003d <RLOG>;
for (@ rlog) (
# Print hvis / Disk Usage / .. 0
push (@ du, $ _) hvis / Disk Usage / .. 0
)
$ set \u003d 1;
foretrukne $ line (@ DU)
(
# @ Nye \u003d split (/ \ s /,$_);
chomp ($ linje);
# Print "\ n $ line";
if (($ line \u003d ~ / ^ [0-9] * /) & & ($ line \u003d ~ / fri $ /))
(
@ val \u003d split (/ \ s / $ linje);
$ new \u003d $ val [0];
$ new \u003d sprintf "% .2 f", $ ny;
# Print "\ NI am forarbejdning C drev info, værdien af nye variabel $ nye";
if ($ nye <100,00)
(
print "\ nDen ledig plads på BLRCC1 C-drevet er mindre end 100 GB, skal du opgradere / Fri plads på harddisk";
)
# Ellers
# (
print "\ nDen tilgængelig ledig plads på BLRCC1 C-drevet er $ nye";
#)
$ val [0] \u003d 0;
$ ses \u003d 0;
)
$ set \u003d 2;
# Print "\ nLooped: $ set \ n";
if (($ line \u003d ~ / ^ [0-9] * /) & & ($ line \u003d ~ / fri $ /) & & ($ set \u003d\u003d 2))
(
@ val \u003d split (/ \ s / $ linje);
$ Raghu \u003d $ val [0];
# Print "\ nValue er $ val [0] \ n";
$ Raghu \u003d sprintf "% .2 f", $ Raghu;
# Print "\ NI am forarbejdning E drev info, værdien af nye variabel $ Raghu";
if ($ Raghu <100,00)
(
print "\ nDen ledig plads på BLRCC1 E-drevet er mindre end 100 GB, skal du opgradere / Fri plads på harddisk";
)
# Ellers
# (
print "\ nDen tilgængelig ledig plads på BLRCC1 E-drevet er $ Raghu";
#)
)
print LOG "<p> $ linje </ p>";
push (@ vs "<p> $ linje </ p> \ n");
)
tæt RLOG;
tæt LOG;
tæt VS;
tæt VSU;

Lige nu er jeg få output som vist nedenfor:

Den ledige plads på BLRCC1 C-drevet er 103,82
Den ledige plads på BLRCC1 E-drevet er 103,82
Den ledige plads på BLRCC1 C-drevet er 145,17
Den ledige plads på BLRCC1 E-drevet er 145,17

Forventet effekt:

Den ledige plads på BLRCC1 C-drevet er 103,82
Den ledige plads på BLRCC1 E-drevet er 145,17