Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / filesystem

Diff for scripts/perl/filesystem/disk-usage.pl between version 1.1 and 1.2

version 1.1, 2005/09/22 22:42:12 version 1.2, 2005/09/28 22:24:09
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 #  #
 # disk-usage.pl  # disk-usage.pl - print summary info about disk usage
   #                 by all users
 #  #
 # Developed by Lubomir Host 'rajo' <rajo AT platon.sk>  # Developed by Lubomir Host 'rajo' <rajo AT platon.sk>
 # Copyright (c) 2005 Platon SDG, http://platon.sk/  # Copyright (c) 2005 Platon SDG, http://platon.sk/
Line 11 
Line 12 
 # Changelog:  # Changelog:
 # 2005-09-22 - created  # 2005-09-22 - created
 #  #
   # Usage:
   #         perl disk-usage.pl [/dev/hda1] [/dev/md3]
   #
   
 # $Platon$  # $Platon: scripts/perl/filesystem/disk-usage.pl,v 1.1 2005/09/22 22:42:12 rajo Exp $
   
 use strict;  use strict;
 use Data::Dumper;  use Data::Dumper;
Line 43  close(PASSWD);
Line 47  close(PASSWD);
   
 #print Dumper($user_stat, $glob_stat);  #print Dumper($user_stat, $glob_stat);
   
 my @fs_list = sort keys %$glob_stat;  my @fs_list;
   if (scalar(@ARGV) > 0) {
           @fs_list = @ARGV;
   }
   else {
           @fs_list = sort keys %$glob_stat;
   }
 print "user\t", join("\t\t", @fs_list), "\n";  print "user\t", join("\t\t", @fs_list), "\n";
 print "-" x 60;  print "-" x 60;
 foreach my $user (sort keys %$user_stat) {  foreach my $user (sort keys %$user_stat) {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top