Select Code to Download

#!/usr/bin/perl
use strict;
...
/production is at 11% with 13171716K remaining.
/production/archive is at 18% with 8095500K remaining.

#!/usr/bin/perl
use strict;
...

__END__

C:\Steve\Dev\PerlMonks\P-2013-12-18@1604-Hash-Undef>perl testdf3.pl > 
+testdf3.txt
Use of uninitialized value $percentage in concatenation (.) or string 
+at testdf3.pl line 38.
...
PREDEBUG (testdf3.pl:55):  Found $info->{capacity} to be > .10
/production/archive is at 18% with 8095500K remaining.

# Change 12.3% to .123
sub _percentage_to_decimal {
...
    return $percentage / 100;
}

C:\Steve\Dev\PerlMonks\P-2013-12-18@1604-Hash-Undef>testdf4.pl
Use of uninitialized value $info{"mount"} in hash element at C:\Steve\
+Dev\PerlMonks\P-2013-12-18@1604-Hash-Undef\testdf4.pl line 14.
...
/production is at 11% with 13171716K remaining.
/production/archive is at 18% with 8095500K remaining.

    if (!defined $info{mount})
    {
...
         $devices{ $info{mount} } = \%info;
     }

C:\Steve\Dev\PerlMonks\P-2013-12-18@1604-Hash-Undef>testdf5.pl
$info{mount} undefined when $line = [/dev/mapper/VolGroup00-LogVol00]
...
/production/archive is at 18% with 8095500K remaining.
/boot is at 28% with 68351K remaining.

#!/usr/bin/perl
use strict;
...

__END__