Select Code to Download

 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 }

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.

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>

$VAR1 = {};
Use of uninitialized value in substitution (s///) at ./get_df.just_cap
+acity line 24.
...
                  'capacity' => '0',
                  'size' => undef
                },