Help for this page

Select Code to Download


  1. or download this
     1 #!/usr/bin/perl
     2 use strict;
    ...
    33     printf "%s is at %d%% with %dK remaining.\n",
    34         $info->{mount}, $info->{capacity}*100, $info->{free};
    35 }
    
  2. or download this
    Use of uninitialized value in substitution (s///) at ./get_df line 21.
    Use of uninitialized value in division (/) at ./get_df line 22.
    ...
    /export/home is at 24% with 11199904K remaining.
    /production/archive is at 18% with 8095796K remaining.
    /boot is at 28% with 68351K remaining.
    
  3. or download this
    casper@casperbox]:~/.wjohnson> df -k
    Filesystem           1K-blocks      Used Available Use% Mounted on
    ...
                          30963708  20410952   8979892  70% /production/lo
    +g
                          10313016   1693640   8095500  18% /production/ar
    +chive
    [casper@casperbox]:~/.wjohnson>
    
  4. or download this
    $VAR1 = {};
    Use of uninitialized value in substitution (s///) at ./get_df.just_cap
    +acity line 24.
    ...
                      'capacity' => '0',
                      'size' => undef
                    },