URL: https://linuxfr.org/forums/programmation-perl/posts/monitoring-disque-dur
Title: monitoring disque dur
Authors: dubis
Date: 2008年10月10日T17:08:30+02:00
Tags: 
Score: -3
Bonjour, 
 
J'essaye de surveiller l'espace de disque dur en utilisant la comande shell "[[df]]" , grace à un script Perl comme suit : 
 
 
 #!/usr/bin/perl -w 
 use MIME::Lite; 
 
 foreach (`df -h | tail +2 `) { 
 s/%//; 
 my @i=split; 
 if ($i[4]> 10 ) { 
 print "$i[0]\t($i[5])\t\t$i[4]%\n"; 
 } 
 
 
le soucis c'est que j'obtient le message d'erreur suivant : 
Missing right curly or square bracket at ./monitor_test.pl line 9, at end of line 
syntax error at ./monitor_test.pl line 9, at EOF 
Execution of ./monitor_test.pl aborted due to compilation errors. 
 
Merci de votre aide
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/monitoring-disque-dur.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/monitoring-disque-dur.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>