000001 #  (gH)   -_-  dfgh.pl  ;  TimeStamp (unix) : 16 Janvier 2010 vers 12:37
000002 
000003 $ver_GH = 1.17 ;
000004 
000005 $dbg_GH = 0 ; # 0 en normal, 1 en mode test/debug
000006 $cmd = "df -h @ARGV" ;
000007 print " on exécute : $cmd \n\n" if $dbg_GH ;
000008 $df  = `$cmd` ;
000009 print "$df" if $dbg_GH ;
000010 @dft = split("\n",$df) ;
000011 $nbl = 0 ; # nombre de lignes
000012 $som = 0 ; # somme des tailles
000013 
000014 foreach $ligne (@dft) { # parcours de chaque information
000015   $nbl++ ;
000016   print sprintf("%3d",$nbl)." : ".$ligne."\n" ;
000017   @tdi     = split(/\s+/,$ligne) ;
000018   $tailleg = $tdi[1] ;
000019   $taille  = substr($tailleg,0,length($tailleg)-1) ;
000020   if (substr($tailleg,-1) eq ("M")) { $taille /= 1024 ; } ;
000021   print " tailleg $tailleg taille $taille\n" if $dbg_GH ;
000022   $som += $taille ;
000023 } ; # fin pour chaque
000024 
000025 print "\n total : ".sprintf("%0.1f",$som)."G\n\n" ;
000026 
000027 # fin de dfgh.pl