スクリプティング達人こんにちは、私は新しいハチに perlのとはCとEドライブの空きディスク容量の可用性を印刷しようとするスクリプトを書く必要があります。アドバイスしてください。

ここには、スクリプトの断片とみ出力されます：


＃ ！ / usr / binに/perlの
のCGI qw / ： html3 ：標準/使用しています。
$ spaceuselog \u003dは" E ： \ \管理者\ \ VOBSpaceUsage \ \ vobspaceusage.log.txt " ;
$報告\u003dは" E ： \ \管理者\ \ VOBSpaceUsage \ \ " vobspaceusage.html ;
オープン（ログインすると、 " > $レポート" ） | " $ログファイルのログファイルへの書き込みエラー死ぬ| ！ " ;
$日時\u003d localtimeの（ ） ;
$カウント\u003d 0 ;
$のVOB \u003d " " ;
vobsize $ \u003d 0 ;
$ totalvobsize + \u003d 0 ;
$ vd \u003d " " ;
$合計\u003d 0 ;

＃ vobs @ \u003d ` lsvobのCT - sをホストblrcc1 ` ;
@ \u003d vobs （ "\ \ scm_blr_amor" 、 "\ \ scm_blr_projects" 、 "\ \ scm_blr_misc" 、 "\ \ blr_mobile_projects" 、 "\ \ blr_mobile_test" ） ;
場合（環境変数$ （ ） \u003d 〜メートルのOS / Windowsの/ ）
（
環境変数$ストア\u003d $ （ SystemDrive ） ;
オープン（ VSU 、 " > $報告書" ）または死ぬ"を開くことができない： $ ！ \ Ñ " ;
オープン（対、 " > > $報告書" ）または死ぬ"を開くことができない： $ ！ \ Ñ " ;
$のCT \u003d " cleartool " ;
）
その他の
（
オープン（ VSU 、 " >メール： \ \管理者\ \ VOBSpaceUsage \ \ vobspaceusage.html " ）や"を開くことができない： $死ぬ！ \ Ñ " ;
$のCT \u003dの" C ： \ \プログラムファイル\ \のRational \ \ ClearCase \ \ binに\ \ cleartool.exe " ;
）
（ @ vsu 、 start_html （ "宇宙のVOB利用報告書" ） 、 " \ Ñ " ）を押して;
（ @ vsu 、 "プッシュ<b>ダウンロードのVOB <p>バックアップサーバ上でバックアップ処理が正常に完了： <font color\u003dblue> BLRSTG01 < /フォントの色> < / b > " ）を;
（ @ vsu 、 "プッシュ<p>のVOBsを支持していると利用可能な場所で： \ \ blrstg01 \ Clearcase \バックアップ フォルダにコピーします。 < / p > " ） ;
（ @ vsu 、 "プッシュ\ Ñ <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 \ Ñ " ） ;
（ @ vsu 、 " <p>プッシュ<b>ダウンロードのVOBサイズステータスのVOB Server上： <font color\u003dblue> BLRCC1 < /フォントの色>テスト< / B > < / p > " ） ;
（ @ vsu 、 "プッシュ<table border\u003d1 width\u003dauto> \ Ñ " ） ;
（ @ vsu 、 " <tr> \ Ñ " ）を押して;
（ @ vsu押して、 " width\u003dauto align\u003dcenter> <b>ダウンロードのVOB名< / b > < <td / >のTD \ Ñ " ） ;
（ @ vsu押して、 " MBのwidth\u003dauto align\u003dcenter> <b>サイズ< / b > < / >のTD \ Ñ " ） <td ;
（ @ vsu押して、 " GBのwidth\u003dautoでalign\u003dcenter> <b>サイズ< / b > < / >のTD \ Ñ " ） <td ;
（ @ vsu 、 " < /トランジスタ> \ Ñ " ）を押して;
対（ @ 、 " < /テーブル> " ）を押して;

vobs （ ） @のVOB $ foreachの
（
$ \u003d $ vobnameのVOB ;
ムシャムシャ食う（ $ vobname ） ;
（ @ vsu 、 " <tr> \ Ñ " ）を押して;
（ @ vsu押して、 " width\u003dauto <td align\u003dleft> $ < vobname / > \ Ñ " ）のTD ;
@ vbpath \u003d ` $ lsvobのCTのVOB ` ;
vbpath （ ） @パス$ foreachの
（
＃印刷" \ "パス$ Ñ ;
$パス\u003d 〜 / \ * / /秒;
$パス\u003d 〜 / \ / / ;
＃印刷" \ "パス$ Ñ ;
（ $パス\u003d 〜 / \秒（ \ \ \ \ [座- Ž \ \ 1 - z0 - 9 \ _ \ 。 \ \ ]*)/)
（
＃印刷" \ nVOBPATH - > $ 1です。 \ n " ;
$ cdft \u003d " $ 1 \ \ ç \ \ cdft " ;
＃印刷ログ" \ " $ cdftトン;
$ ddft \u003d " $ 1 \ \エ\ \ ddft " ;
＃印刷ログ" \ " $ ddftトン;
$デシベル\u003d " $ 1 \ \デシベル" ;
＃印刷ログ" \ " $デシベルトン;
$ sdft \u003d " $ 1 \ \ \ \ sdft " ;
＃印刷" \ Ñソースプール--- > $ sdft " ;
$ \u003d $ 1 vobpath ;
＃印刷" \ nVOBPath >>>>>>>$ vobpath " ;
）
）
@ totspace \u003d ` diruse /月$ vobpath ` ;
一\u003d分割@ （ " " 、 $ totspace [ -1 ] ） ;
$ totalvobsize \u003d $ 1 [ 0 ] ;
＃印刷ログ" \トン\ totalvobsize " $トン;
（ @ vsu押して、 " width\u003dauto align\u003dcenter> $ totalvobsize < / > \ Ñ " ）のTD <td ;
$ totalGBsize \u003d （ $ / 1024 totalvobsize ） ;
＃印刷ログ" \トン\ totalGBsize " $トン;
（ @ vsu押して、 " width\u003dauto align\u003dcenter> $ totalGBsize < / > \ Ñ " ）のTD <td ;

）
対（ @は、 "プッシュ<p>ディスク使用量は<B> C ＃テスト< / B >ドライブ< / p > \ Ñ " ） ;

対（ @は、 " <p>ディスク利用方法<b>ダウンロードメールテスト< / B >ドライブ（ VOBsストレージプッシュ＃ ） < / p > \ Ñ " ）含まれて;
＃ foreachの（ @メッセージ）
＃ （
$印刷＃ _ ;
＃ ）
foreachのvsu （ ） @
（
印刷ログ;
）
vsu （ @プッシュ＃ 、 <table> ） ;
foreachの対（ ） @
（
印刷ログ;
印刷RLOG ;
）
オープン（ RLOG 、 " <メール： \ \バックアップ\ \ログ\ \ rlog.txt " ） ;
@ \u003d <RLOG> rlog ;
（ @ rlog ） （
もし/ディスクの利用方法/ ..印刷＃ 0
デュ（ 、 $ @ _ ） /ディスクの利用方法/ ..プッシュ0
）
$ \u003d 1を見た;
（ @デュ）ライン$ foreachの
（
＃新しい\u003d分割@ （ / \ /,$_);秒
ムシャムシャ食う（ $ライン） ;
＃印刷" \ "の行を$ Ñ ;
（ （ $行\u003d 〜 / ^ [ 0-9 ] * / ） ＆ ＆ （ $行\u003d 〜 / $ / ）無料）
（
@ヴァル\u003d分割（ / \ / 、 $ライン） ;
$新\u003d $ valが[ 0 ] ;
$新しい\u003d sprintfを" ％ .2 f "が、 $新;
＃印刷" \ニッケル、新しい変数の値はCドライブの情報を処理午前$新しい" ;
（ $ < 100.00新）
（
BLRCC1 Cドライブの" \ nTheフリースペース印刷未満百ギガバイト、アップグレードしてください/はディスク上の空き容量を増やして" ;
）
＃他
＃ （
BLRCC1 Cドライブの" \ nThe利用可能な空き領域を印刷$新しい" ;
＃ ）
$ valが[ 0 ] \u003d 0 ;
見た$ \u003d 0 ;
）
$ \u003d 2見;
＃印刷" \ nLooped ： $見\ Ñ " ;
（ （ $行\u003d 〜 / ^ [ 0-9 ] * / ） ＆ ＆ （ $行\u003d 〜 / $無料/ ） ＆ ＆ （ $ \u003d\u003d 2見） ）
（
@ヴァル\u003d分割（ / \ / 、 $ライン） ;
$ raghu \u003d $ valが[ 0 ] ;
＃印刷" \ nValue $ valが[ 0 ] \ Ñ " ;
$ raghu \u003d sprintfを" ％ .2 f "が、 $ raghu ;
＃印刷" \ニッケル、新しい変数の値をEドライブ情報の処理午前$ raghu " ;
（ $ raghu < 100.00 ）
（
BLRCC1 Eドライブの" \ nTheフリースペース印刷未満百ギガバイト、アップグレードしてください/はディスク上の空き容量を増やして" ;
）
＃他
＃ （
BLRCC1 Eドライブの" \ nThe利用可能な空き領域を印刷raghu $ " ;
＃ ）
）
印刷ログ" <p> $ライン< / p > " ;
対（ @ 、 " $ <p>行< / p > \ Ñ " ）を押して;
）
近くRLOG ;
ログを閉じます。
近い対;
VSU近い;

今私は、下図のように出力を得る午前：

BLRCC1 Cドライブ上の利用可能な空き領域103.82です
BLRCC1 Eドライブ上の利用可能な空き領域103.82です
BLRCC1 Cドライブ上の利用可能な空き領域145.17です
BLRCC1 Eドライブ上の利用可能な空き領域145.17です

期待出力：

BLRCC1 Cドライブ上の利用可能な空き領域103.82です
BLRCC1 Eドライブ上の利用可能な空き領域145.17です

@デュ場合、 2つの要素がある場合の2倍の出力を買ってあげるあなたの出力は、 " foreachの内部$ライン（ @デュ） "をループので、されています。

HTH返答

ジェリー

次回は、コードのタグを使用して書式設定コードを投稿してください。多くのフォーマットしようとすると、コードを読むことも困難です。私はジェリーは、問題を発見していると思う。

こんにちはケルビンとジェリー、

ご入力いただき、ありがとうございます。私は将来的に付着します。

私は2つの他の条項とは、フラグ（ $見られる）に2回、各ループでの印刷の両方のケースに該当されると、それゆえにすべきだ。

おかげでここでも、
ccsaviour

次の2つの他の条件があることができない perlの。を持つことができます：

/ elsif /他場合

として、多くの' elsifの条件を必要と'他'の端にはオプションです