Hi Scripting Guru, io sono nuovo in ape perl, E cercando di scrivere uno script che deve stampare la disponibilità di spazio libero sul disco C ed E di unità. Si prega di consulenza.

Ecco il frammento di script e risultati attesi:


#! / usr / bin /perl
utilizzare CGI qw /: html3: standard /;
$ spaceuselog \u003d "E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.log.txt";
relazione $ \u003d "E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.html";
open (LOG, "> $ relazione") | | die "Errore durante la scrittura di file di log file di log $!";
$ datetime \u003d localtime ();
$ count \u003d 0;
vob $ \u003d "";
$ vobsize \u003d 0;
$ totalvobsize + \u003d 0;
vd $ \u003d "";
$ somma \u003d 0;

# @ vobs \u003d `ct lsvob-s-host 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;
aperto (VSU, "> $ relazione") o morire "Impossibile aprire: $! \ n";
aperto (VS, ">> $ relazione") o morire "Impossibile aprire: $! \ n";
$ ct \u003d "cleartool";
)
altro
(
aperto (VSU, "> E: \ \ admin \ \ VOBSpaceUsage \ \ vobspaceusage.html") o morire "Impossibile aprire: $! \ n";
$ ct \u003d "C: \ Program Files \ \ Rational \ \ ClearCase \ \ bin \ \ cleartool.exe";
)
push (@ vsu, start_html ( "Relazione vob l'utilizzo dello spazio"), "\ n");
push (@ vsu, "<p> <b> VOB processo di backup completato con successo il server di backup: <font color\u003d BLRSTG01 </ font color> </ b>");
push (@ vsu, "La <p> VOBs sono sostenute e disponibile presso la località: \ \ blrstg01 \ ClearCase \ Backups cartella. </ 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 taglia su VOB Server Status: <font color\u003d 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 Nome </ b> </ td> \ n");
push (@ vsu, "<td width\u003dauto align\u003dcenter> <b> Grandezza in Mb </ b> </ td> \ n");
push (@ vsu, "<td width\u003dauto align\u003dcenter> <b> Grandezza in Gb </ b> </ td> \ n");
push (@ vsu, "</ tr> \ n");
push (@ vs, "</ table>");

foreach $ vob (@ vobs)
(
$ \u003d $ vobname vob;
chomp ($ vobname);
push (@ vsu, "<tr> \ n");
push (@ vsu, "<td width\u003dauto ALIGN\u003dLEFT> $ vobname </ td> \ n");
@ vbpath \u003d `ct lsvob $ vob»;
foreach $ percorso (@ vbpath)
(
# Print "\ n $ percorso";
$ path \u003d ~ s / \ * / /;
$ path \u003d ~ s / \ s / /;
# Print "\ n $ percorso";
if ($ path \u003d ~ / \ s (\ \ \ \ [a-zA-Z \ \ uno-Z0-9 \ _ \. \ \ ]*)/)
(
# print "\ nVOBPATH -> $ 1 \ n";
$ cdft \u003d "$ 1 \ \ c \ \ cdft";
# stampa LOG "\ t $ cdft";
$ ddft \u003d "$ 1 \ \ d \ \ ddft";
# stampa LOG "\ t $ ddft";
$ db \u003d "$ 1 \ \ db";
# stampa LOG "\ t $ db";
$ sdft \u003d "$ 1 \ \ s \ \ sdft";
# print "\ n Fonte Girone ---> $ sdft";
vobpath $ \u003d $ 1;
# print "\ nVOBPath >>>>>>>$ vobpath";
)
)
@ totspace \u003d `diruse / m $ vobpath»;
@ a \u003d split ( "", $ totspace [-1]);
totalvobsize $ \u003d $ a [0];
# Stampa LOG "\ t \ t $ totalvobsize";
push (@ vsu, "<td width\u003dauto align\u003dcenter> $ totalvobsize </ td> \ n");
totalGBsize \u003d $ ($ totalvobsize / 1024);
# Stampa LOG "\ t \ t $ totalGBsize";
push (@ vsu, "<td width\u003dauto align\u003dcenter> $ totalGBsize </ td> \ n");

)
# push (@ vs ", <p> utilizzo del disco di <b> C </ b> Drive </ p> \ n");

# push (@ vs ", <p> utilizzo del disco di <b> E </ b> Drive (VOBs Storage inclusa) </ p> \ n");
# foreach (@ msg)
# (
# Print $ _;
#)
foreach (@ vsu)
(
LOG stampa;
)
# push (@ vsu, <table>);
foreach (@ vs)
(
LOG stampa;
RLOG stampa;
)
aperto (RLOG ", <E: \ \ Backups \ \ log \ \ rlog.txt");
@ rlog \u003d <RLOG>;
for (@ rlog) (
# Stampa se / disco / .. 0
push (@ du, $ _) if / disco / .. 0
)
$ visto \u003d 1;
foreach $ line (@ du)
(
# @ Nuovo \u003d split (/ \ s /,$_);
chomp ($ line);
# Print "\ n $ line";
if (($ line \u003d ~ / ^ [0-9] * /) & & ($ line \u003d ~ / libera $ /))
(
@ val \u003d split (/ \ s /, $ line);
$ new \u003d $ val [0];
$ new \u003d sprintf "% .2 f", $ new;
# Print "\ nI am trasformazione informazioni unità C, il valore della nuova variabile è $ new";
if ($ nuovo <100,00)
(
print "\ nIl BLRCC1 spazio libero sul disco C è inferiore a 100 GB, La preghiamo di aggiornamento / un po 'di spazio libero su disco";
)
# Else
# (
print "\ nIl spazio libero disponibile sul disco è BLRCC1 C $ new";
#)
$ val [0] \u003d 0;
$ visto \u003d 0;
)
$ visto \u003d 2;
# Print "\ nLooped: visto $ \ n";
if (($ line \u003d ~ / ^ [0-9] * /) & & ($ line \u003d ~ / libera $ /) & & ($ visto \u003d\u003d 2))
(
@ val \u003d split (/ \ s /, $ line);
Raghu $ \u003d $ val [0];
# Print "\ nValue è $ val [0] \ n";
Raghu sprintf $ \u003d "% .2 f", $ Raghu;
# Print "\ nI am unità di trasformazione e informazioni, il valore della nuova variabile è Raghu $";
if ($ Raghu <100,00)
(
print "\ nIl spazio libero su disco BLRCC1 E è inferiore a 100 GB, La preghiamo di aggiornamento / un po 'di spazio libero su disco";
)
# Else
# (
print "\ nIl spazio libero disponibile sul disco è BLRCC1 E Raghu $";
#)
)
LOG stampa "<p> $ riga </ p>";
push (@ vs ", <p> $ riga </ p> \ n");
)
RLOG vicino;
LOG vicino;
VS vicino;
VSU vicino;

In questo momento sto ottenendo l'output come mostrato di seguito:

La disposizione di spazio libero su disco è BLRCC1 C 103,82
La disposizione di spazio libero su disco è BLRCC1 E 103,82
La disposizione di spazio libero su disco è BLRCC1 C 145,17
La disposizione di spazio libero su disco è BLRCC1 E 145,17

Risultati attesi:

La disposizione di spazio libero su disco è BLRCC1 C 103,82
La disposizione di spazio libero su disco è BLRCC1 E 145,17