Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Štvrtok, 22. október 2026
[BACK] [TXT][DIR] Vyššie na [Platon] / scripts / perl / filesystem

Rozdiely pre scripts/perl/filesystem/disk-usage.pl medzi verziami 1.3 a 1.4

verzia 1.3, 2006/03/15 08:34:32 verzia 1.4, 2006/08/31 06:48:24
Riadok 16 
Riadok 16 
 #         perl disk-usage.pl [/dev/hda1] [/dev/md3]  #         perl disk-usage.pl [/dev/hda1] [/dev/md3]
 #  #
   
 # $Platon: scripts/perl/filesystem/disk-usage.pl,v 1.2 2005/09/28 22:24:09 rajo Exp $  # $Platon: scripts/perl/filesystem/disk-usage.pl,v 1.3 2006-03-15 08:34:32 rajo Exp $
   
 use strict;  use strict;
 use Data::Dumper;  use Data::Dumper;
Riadok 68  print "-" x 60;
Riadok 68  print "-" x 60;
 foreach my $user (sort keys %$user_stat) {  foreach my $user (sort keys %$user_stat) {
         print "\n$user\t| ";          print "\n$user\t| ";
         foreach my $filesystem (@fs_list) {          foreach my $filesystem (@fs_list) {
                 printf("%04.2f\t", 100 * $user_stat->{$user}->{$filesystem}->{blocks} / $glob_stat->{$filesystem}->{blocks});                  printf("%04.2f\t",
                 #printf("%04.2f\t|\t", 100 * $user_stat->{$user}->{$filesystem}->{files}  / $glob_stat->{$filesystem}->{files});                          ($glob_stat->{$filesystem}->{blocks} == 0
                                   ? 00.00
                                   : 100 * $user_stat->{$user}->{$filesystem}->{blocks} / $glob_stat->{$filesystem}->{blocks})
                   );
         }          }
 }  }
   
Legend:
Odstranené z verzie1.3  
zmenené riadky
  Pridané vo verzii1.4
Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox 		Na začiatok