Re^2: undefined hash elements

Yeah It works for me at home as well. the DF has long values at work, they get kicked to another line. That is just what DF does. . The df -k | grep -v var cleans up - but i have gotten these undefined errors before. it is a linux box.

[capsper@casperbox .wjohnson]$ uname -a
Linux casper25s 2.6.18-194.32.1.el5 #1 SMP Wed Jan 5 17:52:25 EST 2011
+ x86_64 x86_64 x86_64 GNU/Linux
[download]

This is the data dumper - is there a way to get rid of the undef's ?

 
[icapsper@casperbox .wjohnson]$ ./get_df.just_capacity
$VAR1 = {};
Use of uninitialized value in substitution (s///) at ./get_df.just_cap
+acity line 25.
Use of uninitialized value in division (/) at ./get_df.just_capacity l
+ine 26.
Use of uninitialized value in hash element at ./get_df.just_capacity l
+ine 18.
$VAR1 = {
          '' => {
                  'free' => undef,
                  'mount' => undef,
                  'used' => undef,
                  'name' => '/dev/mapper/VolGroup00-LogVol00',
                  'capacity' => '0',
                  'size' => undef
                }
        };
[download]

Comment on Re^2: undefined hash elements Select or Download Code

Replies are listed 'Best First'.
Re^3: undefined hash elements by MrTEE (Novice) on Dec 18, 2013 at 21:10 UTC
I dump out the %info and %devices hashes `use Data::Dumper ; my %devices; for my $line (@df) { use Data::Dumper ; my %info; print Dumper (\%info); @info{@headers} = split /\s+/, $line; # note the hash slice $info{capacity} = _percentage_to_decimal($info{capacity}); $devices{ $info{mount} } = \%info; print Dumper(\%devices); }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: undefined hash elements
by MrTEE (Novice) on Dec 18, 2013 at 21:10 UTC

I dump out the %info and %devices hashes

use Data::Dumper ;
my %devices;
for my $line (@df) {
    use Data::Dumper ;
    my %info;
    print Dumper (\%info);
    @info{@headers} = split /\s+/, $line;  # note the hash slice
    $info{capacity} = _percentage_to_decimal($info{capacity});
    $devices{ $info{mount} } = \%info;
    print Dumper(\%devices);
}
[download]

[reply]
[d/l]